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Vorwort 


Programmieren in Assembler, Programmieren in Maschinen¬ 
sprache, das sind Zauberwörter für jeden Home-Computer 
Besitzer. Zauberwörter zum einen, weil erst durch diese 
Art der Programinierung die Fähigkeiten des Home-Computers 
voll ausgeschöpft werden können. Zauberwörter aber auch, 
weil die Maschinensprache zunächst unverständlich und 
geheimnisvoll erscheint. 

Was aber nützt einem da ein fertig gekaufter Assembler, 
wenn dabei nicht erklärt ist, was man damit machen kann. 
Wenn man es schließlich gelernt hat, in Assembler zu pro¬ 
grammieren, taucht die zweite Schwierigkeit auf: Man möch¬ 
te die erstellten Programme mit Basic zusammen arbeiten 
lassen. Ein ROM-Listing des Betriebssystems bietet aber 
nur ungenügend Aufschluß über die Funktion des gesamten 
Systems. 

Deshalb wollten wir in diesem Buch einen Leitfaden vor¬ 
stellen, mit dem Sie die Programmierung in Assembler auf 
Ihrem Commodore 64 mit Hilfe von immer wieder eingefügten 
Beispielen erlernen können. Schließlich werden noch Tips 
gegeben, wie man die vorgestellten Programme verändern 
kann, als Übung für Sie. 

Wir wünschen Ihnen viel Erfolg, wenn Sie Ihre Ideen mit 
dem neuen Werkzeug des Assemblers in lauffähige Programme 
umsetzen. 


München im März 1984 

ebJ 

Hans Lorenz Schneider 


Werner Eberl 
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Einleitung 


Wir haben versucht, das Buch so aufzubauen, daß Sie keine 
weitere Literatur zum Verständnis der Assembler-Program¬ 
mierung auf Ihrem Commodore 64 benötigen. Deshalb erläu¬ 
tern wir im ersten Kapitel zunächst, was Programmieren in 
Maschinensprache oder Assembler bedeutet, und welche Vor¬ 
teile und Nachteile daraus entstehen. Dann werden die Be¬ 
fehle des eingebauten Prozessors (6510) vorgestellt und 
genau beschrieben. In diesem Kapitel finden Sie auch be¬ 
reits einfache Beispiele, und schon hier sollten Sie in 
der Lage sein, einfache Probleme in Maschinensprache zu 
formulieren. 

Kapitel 2 beschreibt nun die Möglichkeiten, ein vorhan¬ 
denes Maschinenprogramm mit Basic zu verknüpfen. Nach Er¬ 
läuterung einiger Grundlagen über Speicheraufbau und Zahl¬ 
darstellungen gehen wir sofort auf die im Commodore 64 
eingebauten ROM-Routinen ein, sowie auf die Möglichkeit 
ihres Aufrufes. 

In Kapitel 3 wird ein Assembler beschrieben, der vollstän¬ 
dig in Basic geschrieben ist und dadurch auch leicht modi¬ 
fiziert werden kann. Weil dieser Assembler jedoch recht 
langsam arbeitet, beschreiben wir im nächsten Kapitel Mög¬ 
lichkeiten, häufig verwendete Unterprogramme des Assem¬ 
blers selbst in Assembler zu formulieren. Dies ist gleich¬ 
zeitig ein sehr lehrreiches Beispiel zur Anwendung der 
Assembler-Programmierung im Zusammenhang mit einem Basic- 
Programm. Viele der dort vorgestellten Routinen sind auch 
für andere Basic-Programme nützlich und sie werden später 
sicher oft in diesem Kapitel Anregungen für Ihre eigenen 
Anwendungen finden. 

Kapitel 5 beschreibt einen komfortablen Disassembler, mit 
dem es möglich ist, fast den gesamten Quellcode eines 
Assemblerprogramms wiederzugewinnen. 

Als Zusammenfassung oder für jemand, der die Diskette zum 
Buch kauft, sind in Kapitel 6 die Bedienungsanleitungen 
für Assembler und Disassembler abgebildet. 

Um Ihnen einen ersten Überblick über die Leistung des 
Assemblers zu geben, hier eine kurze Aufstellung seiner 
wichtigsten Merkmale: 
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o lauft auf Commodore 64 mit Floppy 1541 

o Ein-Pass-Assembler 

o Quelldatei kann als Programmdatei oder sequentielle 
Datei vor liegen 

o die Quelldatei kann beliebig groß sein 

o die Objektdatei wird als Programmdatei gespeichert 

o Vorwärtsverweise werden gekennzeichnet und automatisch 
eingesetzt 

o Verwendung von Symbolen für Konstanten oder Marken ist 
mög lieh 

o Einfache Arithmetik in Ausdrücken ist zulässig 

o bis zu 255 Symbole und bis zu 200 Vorwärtsverweise 
können gespeichert werden 

o einfache Handhabung mit Direktiven 

o Ausgabe des Protokolls auf Bildschirm, Drucker oder 
F loppydatei 

o durch Verwendung von Maschinenprogrammen werden kurze 
Assemblierungszeiten erreicht 

o Einbinden von Quelldateien 
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1. 6510 - Der Prozessor des Commodore 64 


Oft kann man immer wieder lesen - vor allem in populär¬ 
wissenschaftlichen Artikeln oder Werbeprospekten von Com¬ 
puter-Firmen - wie etwa: "Dieser Microprozessor übernimmt 
die Aufgabe von über 150.000 Transistoren“, "der Computer 
versteht nur '0' und '1’ dieser neue 16-Bit-Prozessor 
...” . Diese Schlagworte klingen sehr nach Elektronik, al¬ 
so zunächst gar nicht nach dem was, wir vom Computer ge¬ 
wohnt sind, nämlich Rechnen mit Zahlen und Verwalten von 
Daten. Es ist auch notwendig, sich lange Zeit mit Rechnern 
zu beschäftigen, um den Zusammenhang dieser verschiedenen 
Gebiete zu verstehen. Wir wollen in diesem Buch möglichst 
viel zum Verständnis der internen Rechnervorgänge beitra¬ 
gen, auch wenn eine alles umfassende Darstellung in sol¬ 
chem Umfang nicht gegeben sein kann. 

Doch nun zum Kernstück eines Rechners: dem Prozessor. Der 
Prozessor im Commodore 64 nennt sich 6510 und ist ein 8- 
Bit-Prozessor. Der 6510 ist voll softwarekompatibel mit 
dem weit verbreiteten 6502. Deshalb ist das folgende Ka¬ 
pitel auch für den 6502 und alle analogen Prozessoren 
dieser Familie (6503, 6504, 6505, 6506, 6507, 6512, 6513, 
6514, 6515, 65C02 / allgemein bezeichnet als 65xx) gültig. 

Wir wollen nach einigen Bemerkungen über die Funktions¬ 
weise eines Mikroprozessors auf die Register, die Flags 
und auf die möglichen Adressierungsarten des 6510 einge- 
hen, sowie anschließend die Befehle in alphabetischer Rei¬ 
henfolge darstellen. 

Dann sollen die Anwendung der Befehle an einigen einfachen 
Beispielen aufgezeigt werden. Zum Abschluß bringen wir 
noch eine Tabelle mit den Befehlen in hexadezimaler Rei¬ 
henfolge. 


1.1. Funktionsweise eines Mikroprozessors 


Einer der wichtigsten Bausteine im Computer ist der Pro¬ 
zessor, auch CPU genannt. Sehen wir uns zunächst die An¬ 
schlußbelegung des 6510 an, wie er im Commdore 64 einge¬ 
baut ist. 
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Anschlußbelegung 


PHI 1 E 

1 

-O 

40 

RDY C 
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39 

IRQ C 
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38 
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4 


37 

AEC C 
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31 
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19 


22 
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Bild 1.1.1 : Anschlußbelegung des 6510 


Diese Anschlüsse können wir nach ihrer Bedeutung eintei¬ 
len: in Versorgungsanschlüsse (GND-OV-Masse, +5V-Stromver- 
sorgung, PHIl-Takte i ngang, PHI2-Takteingang), sogenannte 
Adressie itungen (AO - A15 / 16 Stück), Datenleitungen (DO 
- D7 / 8 Stück), sowie Steuerleitungen (RES-Reset, IRQ-In- 
terrupt Request/anfordern Unterbrechung, NMI-non-maskable- 
interrupt/nicht maskierbarer Interrupt, RDY-Speicherfer- 
tigmeldung, AEC-adressbus-enable-control/Steuerauswahl für 
Adressbus, R/W-Schreib/Lese-Leitung); außerdem sind am 
6510 noch 6 Ein-/Ausgabeanschlüsse (PO - P5) vorhanden. 
Diesen Zusammenhang können wir uns grafisch wie folgt 
veranschaulichen: 
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einfaches Blockschaltbild 



Bild 1.1.2 : Einfaches Blockschaltbild des 6510 


In diesem Bild sind alle Leitungen weggelassen, die für 
das Verständnis im folgenden keine Bedeutung haben. 

Der eingezeichnete Speicher ist eine Vorrichtung, die es 
erlaubt Informationen (prinzipiell als einzelne Bits '0' 
oder '1') zu speichern und wieder zu lesen. Logisch zusam¬ 
mengefaßt werden immer acht Bits zu einem Byte. Oedes Byte 
erhält eine Adresse, also eine Nummer unter der es ange¬ 
sprochen werden kann. Bei 64K (= 65536) Bytes können dies 
Werte von 0 bis 65535 sein. Welche Speicherzelle (Byte) 
gelesen oder geschrieben werden soll, bestimmt in diesem 
einfachen Modell alleine der Prozessor. Ob geschrieben 
oder gelesen werden soll, wird über die Leitung R/W dem 
Speicher mitgeteilt. Diese 8-Bit liegen dann paralell auf 
den Datenbus an, dabei entspricht dem logischen Wert '0' 
die Spannung 0 Volt, und 5 Volt entspricht '1'. Ähnlich 
wie man die Bitkombination auf dem Adressbus als Speicher¬ 
zellennummer auffaßt, so faßt man die Bitkombination am 
Datenbus als 8-Bit-Binärzah1 (Dezimalwerte 0 bis 255) auf. 

Was geschieht nun beim Einschalten des Systems? Hier wird 
der Prozessor durch einen kurzen Impuls an der RESET-Lei- 
tung in einen definierten Ausgangszustand versetzt. Dann 
geschieht folgendes: Der Prozessor adressiert im Speicher 
die Zelle 65532, liest diesen Wert und merkt ihn sich zur 
weiteren Verarbeitung. Dann wird die Zelle 65533 gelesen 
und der erhaltene Wert mit 256 multipliziert und zum vor¬ 
herigen hinzuaddiert. Das erhaltene Ergebnis ist nun die 
Adresse des ersten auszuführenden Befehls. Im Prozessor 





18 


Kapitel 1 


ist ein 16-Bit-Register enthalten, das den momentanen Wert 
der Befehlsadresse speichert, ein sogenannter Programmzäh¬ 
ler (englisch: Program Counter, abgekürzt: PC). Der Pro¬ 
zessor liest also nun den Inhalt der über den Programmzäh¬ 
ler adressierten Speicherzelle. Diesen Wert interpretiert 
er als Befehl. Bei dieser Interpretation wird noch unter¬ 
schieden nach Befehlen, die sofort ausgeführt werden kön¬ 
nen und solchen, bei denen noch ein oder zwei Byte gelesen 
werden müssen, die den Befehl näher beschreiben; z.B. muß 
bei einem Sprungbefehl noch das Sprungziel eingelesen wer¬ 
den. 

Wenn wir die Aufgabe hätten, ein Computersystem zu entwer¬ 
fen und dafür die notwendigen Maschinenprogramme zu 
schreiben, so müßten wir also im Prinzip dafür sorgen, daß 
in den Speicherzellen 65532 und 65533 die Anfangsadresse 
des Programmes steht und der Prozessor anschließend immer 
die gewünschten Werte im Speicher vorfindet, die er dann 
als Befehl interpretieren kann. Und das bedeutet nichts 
anderes, als den Prozessor zu programmieren. Die Aus¬ 
drucksweise im vorigen Absatz mag etwas umständlich er¬ 
scheinen, jedoch wird dadurch die komplizierte Funktions¬ 
weise eines Prozessors besser deutlich. 

Wir können also ein Programm schreiben, indem wir einfach 
eine Liste von Werten anfertigen, die der Prozessor nach¬ 
einander zu lesen hat. Diese Liste kann auch direkt mit 
Hilfe des BASIC-Befehls POKE eingegeben werden, wenn es 
sich um extrem kurze Programme handelt. Wenn wir jedoch 
größere Programme schreiben wollen, so müssen wir von den 
Zahlenkombinationen übergehen zu sogenannten mnemotech¬ 
nischen Bezeichnungen, deren Buchstaben mehr auf die 
eigentliche Funktion des Befehls hinweisen, so z.B. der 
Befehl 3MP (von englisch jump = springen), der einfach den 
Programmzähler mit den dem Befehlscode folgenden zwei 
Bytes besetzt; diesen Vorgang bezeichnen wir normalerweise 
als Sprung. 

Wir hoffen, daß der Zusammenhang zwischen der logischen 
Operation 'Sprung' und den Impulsen am Prozessor selbst 
einigermaßen deutlich geworden ist. Es ist auch eine fas¬ 
zinierende Erkenntnis, in wieviel elektronische Schritte 
ein einfacher Programmbefehl zerteilt werden muß, damit er 
vom Rechner ausgeführt werden kann. 


1.2 Die Register des 6510 


Der 6510 enthält acht Register, davon fünf 8-Bit-Register 
für Arithmetik und Adressierung, ein 16-Bit-Register für 
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den Programmzähler und zwei 8-Bit-Register für 
Ausgabe Kanäle. Für die letzten beiden gibt es 
zifischen Befehle, sondern sie werden wie Spe 
behandelt. Hier eine Abbildung der Datenflüs 
zwischen den sechs wichtigsten Registern: 


die Ein-/ 
keine spe¬ 
iche rze1len 
se im 6510 


Datenwege beim 6502 (6510) 



$0100 


$01 FF 


Bild 1.2 : Datenwege beim 6510 


Der Programzähler (PC) 

Der Programmzähler enthält jeweils die Adresse des näch¬ 
sten zu holenden Befehles. Nach jedem Befehl wird er ent¬ 
sprechend erhöht oder - bei einem Sprungbefehl - neu gela¬ 
den. Sprungbefehle können sein: Ein direkter oder indirek¬ 
ter Sprung (0MP), ein Unterprogrammaufruf (0SR), eine be¬ 
dingte Verzweigung (z.B. BNE) sowie Rückkehrbefehle aus 
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Unterprogrammen (RTS) oder Unterbrechungen (RTI). Auch 
durch einen hardwaremäßig ausgelösten Interrupt (auf die 
Theorie der Interrupts können wir hier leider aus Platz¬ 
mangel nicht weiter eingehen) oder ein BRK-Befehl ver¬ 
ändern natürlich den Programmzähler. 


Akkumulator (A) 

Der Akkumulator ist wohl das wichtigste Register des Pro¬ 
zessors. Mit ihm allein können arithmetische Operationen 
ausgeführt werden. Der Akkumulator kann direkt mit dem 
Wert einer Speicherzelle geladen werden, und er kann auch 
direkt in eine Speicherzelle abgelegt werden. 


X-Register (X) 

Dieses Register dient vor allem zur Indizierung von Ta¬ 
bellen (vergleiche Kapitel 1.4 und 1.6) sowie als Laufva¬ 
riable in Schleifen. Als arithmetische Operationen sind 
hier nur INX (erhöhe X-Register um 1) und *DEX (vermindere 
X-Register um 1) möglich. 


Y-Register (Y) 

Das Y-Register arbeitet wie das X-Register als Indexregis¬ 
ter oder Laufvariable für Schleifen, und ist entsprechend 
durch die Befehle INY und DEY ansprechbar. 


Prozessor-Status-Register (P) 

Im Prozessor-Status-Register sind alle Flags (Merker) zu¬ 
sammengefaßt. Die Bedeutung der einzelnen Flags ist in Ka¬ 
pitel 1.3 beschrieben. 


Stack-Pointer / Kellerspeicher (S) 

Im Speicher ist der Bereich von $0100 bis $01FF besonders 
ausgezeichnet. Dieser Bereich arbeitet in einem 6510-Sys- 
tem als Kellerspeicher oder Stapel (engl.: Stack). Das Re¬ 
gister S zeigt dabei immer auch den nächsten zur Verfügung 
stehenden Platz im Kellerspeicher. Da dieses Register nur 
8 Bit umfaßt, kann der Kellerspeicher auch nur 256 Byte 
groß sein. 

Die Bearbeitung des Kellerspeichers geschieht mit sogenan¬ 
nten Push- und Pul1-Operationen und dient zum kurzzeitigen 
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Zwischenspeichern von Werten. Nehmen wir als einfachstes 
Beispiel das Pushen (PHA) und Pullen (PLA) des Akkumula¬ 
tors. Der PHA-Befehl legt den Wert des Akkumulators an der 
über den Stackpointer beschriebenen Adresse im Kellerspei¬ 
cher ab und vermindert den Stackpointer um eins. Damit ist 
der Akku im Kellerspeicher abgelegt. Das Zurückholen geht 
in umgekehrter Reihenfolge, d.h. beim PLA-Befehl wird zu¬ 
nächst der Stackpointer um eins erhöht und dann der Akku¬ 
mulator mit der über den Stackpointer adressierten Spei¬ 
cherzelle geladen. Anders ausgedrückt arbeitet der Keller¬ 
speicher nach dem LIFO-Prinzip (Last in, First out). 

In der oben abgebildeten Grafik (Bild 1.2) sind alle Be¬ 
fehle eingetragen, die den Stackpointer beeinflussen. 


Datenrichtungsregister 

Der 6510 besitzt sechs Ein- / Ausgabeanschlüsse (PO bis 
P5) deren Richtung (Ein- oder Ausgabe) durch dieses Regi¬ 
ster bestimmt wird. Eine ’1’ im entsprechenden Bit bedeu¬ 
tet Ausgang, eine ’0' Eingang. Es sind hier nur die sechs 
niederwertigen Bits veränderbar. Die Anschlüsse, die den 
Ports P6 und P7 entsprechen, werden intern für die An¬ 
schlüsse NMI und RDY verwendet, und sollten deshalb stän¬ 
dig auf Eingang geschaltet bleiben. Die Bedeutung der ein¬ 
zelnen Ports im Commodore 64 ist im Kapitel 2.1 beschrie¬ 
ben. Das Datenrichtungsregister wird durch die Speicher¬ 
adresse $0000 angesprochen. 


Ein- / Augsgabe-Register 

Im Ein- / Ausgabe-Register werden die Daten, die über die 
Ports P0-P5 gelesen oder geschrieben werden, übergeben. 
Dieses Register wird durch eine Lese- oder Schreibopera¬ 
tion mit der Adresse #0001 angesprochen. 


1.3 Die Flags des 6510 


Ein Flag (oder auch Flagge) ist ein Bit, das einen be¬ 
stimmten Zustand des Prozessors anzeigt und wird in 
deutsch auch Merker genannt. Der 6510 kennt sieben ver¬ 
schiedene Flags. Die meisten Befehle arbeiten irgendwie in 
Abhängigkeit von der Stellung der Flags oder verändern 
diese selbst. Deshalb ist im folgenden bei jedem Flag eine 
Liste der Befehle angegeben, die durch das entsprechende 
Flag beeinflußt werden, außerdem sind die Befehle aufge¬ 
führt, die das jeweilige Flag beeinflussen. Vergleiche 
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auch mit der Befehlstabelle in Kapitel 1.5. 


Das Carry-Flag (Übertrags-Bit) 

Seinen Namen hat das Carry-Flag von seiner Bedeutung beim 
Addieren und Subtrahieren. Da der Akkumulator nur acht 
Bits umfaßt, tritt bei einer Addition, dessen Ergebnis 
größer als 255 ist, ein Übertrag auf. Dieser Fall wird mit 
dem Carry-Flag angezeigt. Außer bei der Addition können 
auch bei Schiebebefehlen Überträge auftauchen, die dann 
ebenfalls im Carry-Bit gespeichert werden. Das Carry-Bit 
hat noch weitere Bedeutungen, diese wollen Sie aber bitte 
bei den einzelnen Befehlen nachschlagen. 

Befehle, die das Carry-Flag beeinflussen: ADC, ASL, CLC, 
CMP, CPX, CPY, LSR, PLP, ROL, ROR, RTI, SBC, SEC. 

Befehle, die durch das Carry-Flag beeinflußt werden: ADC, 
BCC, BCS, PHP, ROL, ROR, SBC. 


Zero-Flag (Ergebnis ist 0) 

Dieses Bit wird immer dann gesetzt, wenn das Ergebnis 
einer arithmetischen Operation oder einer Ladeoperation 
gleich Null ist, d.h. daß anschließend im geladenen Regis¬ 
ter nur Nullen vorhanden sind. 

Befehle, die das Zero-Flag beeinflussen: ADC, AND, ASL, 
BIT, CMP, CPX, CPY, DEC, DEX, DEY, EOR, INC, INX, INY, 
LDA, LDX, LDY, LSR, ORA, PLA, PLP, ROL, ROR, RTI, SPC, 
TAX, TAY, TYA, TSX, TXA. 

Befehle, die durch das Zero-Flag beeinflußt werden: BEQ, 
BNE, PHP. 


Interrupt-Disable (Unterbrechung verhindern) 

Wenn dieses Bit gesetzt ist, können keine Unterbrechungen, 
die durch den IRQ-Anschluß angefordert werden, bearbeitet 
werden. Es ist notwendig, dieses Bit zu setzen, wenn eine 
Operation nicht gestört werden darf, das ist im allgemei¬ 
nen das Verändern des IRQ-Vektors. 

Befehle, die das Interrupt-Flag verändern: BRK, CLI, PLP, 
RTI, SEI. 

Befehle, die durch das Interrupt-Flag beeinflußt werden: 
PHP. 
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Aufbau des Statusregisters 



Carry 

Zero 

Interrupt Mask 

Decimal Mode 

BRK-Command 

Spare 

Overflow 

Negativ 


(Übertrag) 

(Ergebnis null) 

(Unterbrechung 

verhindern) 

(Dezimal¬ 

arithmetik) 

(BRK wurde 
ausgeführt) 

(nicht benutzt) 
(Überlauf) 
(Ergebnis negativ) 
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Decimal-Flag (Dezimal-Arithmetik) 

Dieses Flag wählt zwischen Binär-Arithmetik und BCD-Arith¬ 
metik aus. BCD-Arithmetik bedeutet, daß im Akku zwei dezi¬ 
male Ziffern - jeweils als 4-Bit Zahlen kodiert - stehen. 
Ist dann bei einer Addition das Ergebnis der hinteren Zif¬ 
fer größer als neun, so erfolgt ein Übertrag auf die vor¬ 
dere Ziffer, und entsprechend wird das Carry-Flag gesetzt, 
wenn die Summe der vorderen beiden Ziffern plus dem Über¬ 
trag der niedrigeren Ziffern größer als neun ist. Die Sub¬ 
traktion wird analog gehandhabt. 

Befehle, die das Decimal-Flag beeinflussen: CLD, PLP, RTI, 
SED. 

Befehle, die durch das Decimal-Flag beeinflußt werden: 
ADC, PHP, SBC. 


Break-Flag (BRK-Befehlsmerker) 

Dieses Flag wird genau dann gesetzt, wenn der BRK-Bfehl 
ausgeführt wird. Dadurch kann man in der Interrupt/Break- 
Routine unterscheiden, ob diese Routine durch einen BRK- 
Befehl oder einen IRQ-Interrupt ausgelöst worden ist. 

Befehle, die das Break-Flag beeinflussen: BRK, PLP, RTI. 

Befehle, die durch das BRK-Flag beinflußt werden: PHP 


Overflow-Flag (Überlauf) 

Dieses Bit ist im Zusammenhang mit den arithmetischen 
Befehlen Addieren und Subtrahieren interessant. Es wird 
immer dann gesetzt, wenn bei vorzeichenbehafteter 8-Bit- 
Addition der zulässige Bereich überschritten wird. Bei 
vorzeichenbehafteter Zahldarstellung sind in acht Bit nur 
Zahlen im Bereich -128 bis +127 darstellbar. Z.B. eine 
Addition von +100 mit +100 würde zum Setzen des Overflow- 
Flags führen. 

Befehle, die das Overflow-Flag beeinflussen: ADC, BIT, 
CLV, PLP, RTI, SBC. 

Befehle, die durch das Overflow-Flag beeinflußt werden: 
BVC, BVS, PHP. 
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Negative-Flag (Ergebnis negativ) 


Der Name dieses Flags ist sinnvoll bei Verwendung von vor¬ 
zeichenbehafteter Arithmetik. Es ist genau dann gesetzt, 
wenn das Ergebnis einer Operation negativ ist. Im allge¬ 
meinen ist es der Fall, wenn das höchstwertige Bit des 
veränderten Registers gesetzt ist. 


Befeh 1e, 

die 

das 

Negative-Flag beeiflussen: 

ASL, 

BIT, 

CMP , 

CPX 

, CPY, DEC, DEX, 

DEY, 

EOR, 

INY, 

LDA, 

LDX , 

LDY 

, LSR, ORA, PLA, 

PLP , 

ROL , 

SPC, 

TAX, 

TAY, 

TYA, 

TSX, TXA. 




ADC, AND, 
INC, INX, 
ROR, RTI, 


Befehle, die durch das Negative-Flag beeinflußt werden: 
BMI, BPL, PHP. 


1.4 Adressierungsarten 


Im Folgenden wollen wir die verschiedenen Adressierungsar¬ 
ten des 6510 genauer erläutern. 


Implizite Adressierung 

Dies ist die einfachste aller Adressierungsarten. Es wird 
nämlich bereits durch den Befehl selbst bestimmt, welche 
Register oder Speicherzellen verändert werden, d.h. es 
wird keine Adresse benötigt. Befehle mit implizierter 
Adressierung kennen keine andere Adressierungsart. 


Akkumulator 

Akkumulator-Adressierung bedeutet, daß der Akkumulator die 
anzusprechende Adresse ist, und nicht, daß die Adresse im 
Akkumulator steht. Diese Art gleicht im wesentlichen der 
impliziten Adressierung, jedoch sind bei den entsprechen¬ 
den Befehlen noch andere Adressierungsarten möglich. Die 
Akkumulator-Adressierung wird nur bei Schiebe- und Rota¬ 
tionsbefehlen verwendet. 



26 


Kapitel 1 


Unmittelbare (Immediate) Adressierung 

Hier folgt unmittelbar auf den Befehlscode der zu ladende 
Wert, d.h. es wird keine Adresse verwendet. Wenn z.B. das 
X-Register mit der Konstanten '5' geladen werden soll (LDX 
#5), so ist dies eine unmittelbare Adressierung. 


Absolute Adressierung 

Hier folgen dem Befehlscode zwei Bytes, zunächst das Low- 
Byte, dann das High-Byte, die zusammen die Adresse der zu 
manipulierenden Speicherzelle angeben. Man benötigt diese 
Adressierung, wenn man z.B. den Akku mit dem Inhalt einer 
bestimmten Speicherzelle laden möchte. 


Absolut X-indizierte Adressierung 

Auch hier folgen dem Befehlscode zwei Bytes, jedoch ist 
die Adresse des zu manipulierenden Speicherplatzes gegeben 
durch den Wert der zwei Bytes vermehrt um den Wert des X- 
Registers. Dadurch kann man leicht Tabellen verwalten, in¬ 
dem die Basisadresse konstant gehalten wird und lediglich 
das X-Register verändert wird. 


Absolute Y-indizierte Adressierung 

Diese Adressierungsart gleicht der absolut X-indizierten 
Adressierung, jedoch wird hier anstatt des X-Registers das 
Y-Register verwendet. 


Zero-Page Adressierung 

Hier folgt dem Befehlscode nur ein Byte. Damit wird eine 
Adresse in den ersten 256 Byte des Speichers (sog. Zero- 
Page) angesprochen. Dadurch ist kein zweites Byte notwen¬ 
dig und es wird Speicherplatz gespart. 


Zero-Page X-indiziert, Zero-Page Y-indiziert 

Diese beiden Adresssierungsarten entsprechen im wesent¬ 
lichen den absolut indizierten Möglichkeiten, jedoch folgt 
hier ebenfalls nur ein Byte dem Befehlscode, womit dann 
nur Adressen in der Zero-Page angesprochen werden können. 
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Relative Adressierung 

Diese Adressierung wird bei den bedingten Sprungbefehlen 
verwendet, indem das Sprungziel durch den momentanen Pro¬ 
grammzähler plus oder minus einer Distanz (englisch: Off¬ 
set) gegeben ist. Werte von 1 bis 127 ergeben Vorwärts¬ 
sprünge um entsprechend viele Bytes, und Werte von 128 bis 
255 entsprechen Rückwärtssprüngen, wobei man hier das 
Sprungziel wie folgt berechnen muß: 

Sprungziel = Programmzähler + Wert des Operanden - 256. 


Indirekte Adressierung 

Diese Adressierung wird im 6510 nur für Sprungbefehle ver¬ 
wendet. Dabei stellen die auf den Befehlscode folgenden 
zwei Bytes eine Adresse dar, in der das Sprungziel steht. 


Indiziert-indirekte Adressierung (nur mit X-Register) 

Dies wird auch als vorindizierte Adressierung bezeichnet 
und bedeutet, daß das auf den Befehlscode folgende Byte 
vermehrt um den Wert des X-Registers eine Zelle in den er¬ 
sten 256 Bytes des Speichers angibt, welche zusammen mit 
der folgenden Adresse (innerhalb der Zero-Page) die Adres¬ 
se des gewünschten Operanden angibt. 


Indirekt-indizierte Adressierung (nur mit Y-Register) 

Diese Möglichkeit mit Indizierung nach der indirekten 
Adressierung (Nachindizierung) bedeutet, daß das auf den 
Befehlscode folgende Byte ein Zellenpaar in den ersten 256 
Byte des Speichers adressiert, in denen eine Adresse (2 
Bytes (Low/High) steht. Die effektive Adresse des Operan¬ 
den erhält man durch Hinzufügen des Wertes des Y-Registers 
zu dieser Adresse. 


1.5 Die Befehle in alphabetischer Reihenfolge 


Dieses Kapitel widmet sich dem Befehlsvorrat des 6510, 
wobei jeder Befehl mit seiner mnemotechnischen Bezeichnung 
- aufgrund derer auch sortiert ist - und einer Kurzcharak¬ 
teristik vorgestellt wird. In der Kurzcharakteristik wer- 
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den beschrieben: 

- die hexadezimalen Operationscodes 

- die ursprüngliche englische Bezeichnung 

- deutsche Übersetzung 

- Die Anzahl der Bytes je Befehl 

- die beeinflussten Flags 

- die beeinflussenden Flags 

- ggf. die Funktion 

- Aufschlüsselung nach Adressierungsart 


Folgende Abkürzungen wurden verwendet (die Sie teilweise 
schon kennengelernt haben): 


* 

& 

v 

0 

1 

B 

C 

D 

I 

M 

(M) 

M6 

M7 

N 

Op 

P 

PC 

PCL 

PCH 

S 

V 
X 

Y 

z 


Flag wird verändert bzw. 

Multiplizierungsoperator 

Logische UND-Verknüpfung 

Logische ODER-Verknüpfung 

Flag wird gelöscht 

Flag wird gesetzt 

Break-Flag BRK-Befeh 1s-F1ag 

Carry-Flag Übertrag 

Dezimal-Flag Dezimal-Arithmetik 

Interrupt-Flag Unterbrechungsmaske 

Memory Daten 

Inhalt der Speicherzelle M 

Memory-Bit 6 Datenbit Nr. 6 

Memory-Bit 7 Datenbit Nr. 7 

Negativ-Flag Ergebnis negativ 

Operand 

Prozessorstatus Statusregister 
Program Counter Programmzähler 
PC-Low-Byte Niederwertiges Byte 

PC-High-Byte Höherwertiges Byte 

Stackpointer Stapelzeiger 
Overflow-Flag Überlauf 

X-Register 
Y-Reg ister 

Zero-Flag Ergebnis null 
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ADC 


Add with Carry Mit Übertrag addieren 
Funktion: A = A+M+C 

Der Speicherinhalt und das Übertragsbit werden zum Akku¬ 
mulator hinzuaddiert. Das Übertragsbit wird dann gesetzt, 
wenn das Ergebnis den 8-Bit-Bereich überschreitet. Das 
Overflow-Flag wird gesetzt, wenn der Bereich für eine vor¬ 
zeichenbehaftete Zahl überschritten wird. 

NVB-DIZC 
Beeinflusste Flags: * * * * 
Beeinflussende Flags: * * 


Adressierungsart 

Symbol-Form 

Code 

Bytes 

Unmittelbar 

ADC 

# 0 p 

69 

2 

Zero Page 

ADC 

Op 

65 

2 

Zero Page , X 

ADC 

0p,x 

75 

2 

Absolut 

ADC 

Op 

6D 

3 

Absolut , X 

ADC 

0p,x 

7D 

3 

Absolut , Y 

ADC 

Op, Y 

79 

3 

Vor- indiziert 

ADC 

(Op,X) 

61 

2 

Nach-indiziert 

ADC 

(Op),Y 

71 

2 


AND 


And Accu with Memory Und-Verknüpfung Speicher-Akku 
Funktion: A = A & M 

Der Akkumulator wird mit den Daten im Speicher logisch 
Und-verknüpft, d.h. ein bestimmtes Bit wird genau dann 
gesetzt, wenn das entsprechende Bit im Akkumulator und in 
den Daten des Speichers gesetzt war. 
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NVB-DIZC 
Beeinflusste Flags: * * 

Beeinflussende Flags: 


Adressierungsart 

j 

Symbo1-Form 

Code ! 

Bytes 

Unmittel bar 

J 

AND 

#0p 

29 ! 

2 

Zero Page 

! 

AND 

Op 

25 ! 

2 

Zero Page , X 

! 

AND 

Op,X 

35 ! 

2 

Absolut 

! 

AND 

Op 

2D ! 

3 

Absolut , X 

! 

AND 

Op,X 

3D ! 

3 

Absolut , Y 

i 

AND 

Op, Y 

39 ! 

3 

Vor- indiziert 

1 

AND 

(Op,X) 

21 ! 

2 

Nach-indiziert 

! 

AND 

(Op),Y 

31 ! 

2 


ASL 


Arithmetic Shift Left Ein Bit nach links schieben 
Funktion: A = A * 2 bzw. M = M * 2 

Die Bits im Akkumulator bzw. der Speicherzelle werden um 
eine Stelle nach links geschoben. Das niederwertigste Bit 
wird mit einer Null aufgefüllt, und das höchstwertigste 
Bit steht anschließend im Carry-Flag. Dies entspricht 
einer binären Multiplikation mit zwei. 

NVB-DIZC 
Beeinflusste Flags: * * * 
Beeinflussende Flags: 


Adressierungsart 

! Symbol-Form ! 

Code ! 

Bytes 

Accumulator 

ASL A ! 

OA ! 

1 

Zero Page 

ASL Op 

06 ! 

2 

Zero Page , X 

ASL Op,X ! 

16 ! 

2 

Absolut 

ASL Op 

OE ! 

3 

Absolut , X 

ASL Op,X ! 

IE ! 

3 
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BCC 


Branch if Carry Clear Verzweige, wenn Carry = 0 

Der Befehl wird dann ausgeführt, wenn das Carry-Flag nicht 
gesetzt ist. In diesem Fall wird zum aktuellen Programm¬ 
zähler der Wert des Operanden hinzuaddiert, wobei dieser 
als vorzeichenbehaftete 8-Bit-Zahl aufzufassen ist, d.h. 
das höchstwertige Bit hat die Wertigkeit -128. 

Der BCC-Befehl wird z.B. dann eingesetzt, wenn bei einem 


Vergleich der Akkumulator kleiner als 
ist. 

der 

Verg le ichswert 

N V B 

- D 

I Z C 

Beeinflusste Flags: 

Beeinflussende Flags: 


* 

| 

! Adressierungsart ! Symbol-Form ! 

Code 

! Bytes ! 

i 

! Relativ ! BCC Op ! 

i-- 

90 

! 2 ! 

--i 


BCS 


Branch if Carry Set Verzweige, wenn Carry = 1 

Das Programm springt um die angegebene Distanz, wenn das 
Carry-Flag gesetzt ist. 

NVB-DIZC 

Beeinflusste Flags: 

Beeinflussende Flags: * 
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Adressierungsart 

! Symbol-Form ! 

! Code ! 

Bytes 

Relativ 

! BCS Op ! 

! BO 1 

2 


BEQ 


Branch if Equal Verzweige, wenn Zero = 1 

Der Sprung wird ausgeführt, wenn das Zero-Flag gesetzt 
ist. Dieser Befehl wird meist nach Vergleichsoperationen 
eingesetzt, um die Gleichheit abzuprüfen. 

NVB-DIZC 

Beeinflusste Flags: 

Beeinflussende Flags: * 


Adressierungsart 

! Symbol-Form ! 

! Code ! 

! Bytes 

Relativ ! 

! BEQ Op 

! FO ! 

! 2 



Bit Test Bits im Speicher mit Akku prüfen 


Bit 6 und Bit 7 der angegebenen Speicherzelle werden in 
das Negativ-Flag und das Overflow-Flag des Status-Regis¬ 
ters übertragen. Dann wird der Akkumulator mit der Spei¬ 
cherzelle UND-verknüpft und das Zero-Flag genau dann ge¬ 
setzt, wenn dieses Ergebnis Null ist, d.h. wenn alle im 
Akkumulator gesetzten Bits im Speicher nicht gesetzt sind. 

Durch diesen Befehl werden weder der Akkumulator noch das 
X- oder Y-Register verändert. Er dient lediglich zum Set¬ 
zen der entsprechenden Flags. 
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NVB-DIZC 
Beeinflusste Flags: M7 M6 * 

Beeinflussende Flags: 


Adressierungsart 

! Symbol-Form ! 

! Code ! 

! Bytes 

Zero Page 

! BIT Op ! 

! 24 ! 

! 2 

Absolut 

! BIT Op 

! 2C 

! 3 


BMI 


Branch if Minus Verzweige, wenn Ergebnis negativ 


Das Programm verzweigt, wenn das Negativ-Flag gesetzt ist. 

Dieser Befehl wird meist angewendet, wenn nach einem Lade¬ 
befehl oder Transferbefehl geprüft werden soll, ob das 
höchstwertigste Bit (MSB-Most-Significant-Bit) gesetzt 
ist. 

NVB-DIZC 

Beeinflusste Flags: 

Beeinflussende Flags: * 


Adressierungsart 

! Symbol-Form ! 

! Code ! 

! Bytes 

Relativ 

! BMI Op ! 

! 30 ! 

2 


BNE 


Branch if Not Equal Verzweige, wenn Z = 0 


Das Programm springt um die angegebene Distanz, wenn das 
Zero-Flag nicht gesetzt ist. Dieser Fall tritt z.B. ein, 
wenn bei einem Vergleich 'Nichtübereinstimmung' festge¬ 
stellt wurde. 
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NVB-DIZC 

Beeinflusste Flags: 

Beeinflussende Flags: * 


Adressierungsart 

! Symbol-Form ! 

1 Code ! 

Bytes 

Relativ 

! BNE Op ! 

! DO ! 

2 


BPL 


Branch if Plus 


Verzweige, wenn Ergebnis positiv 


Dieser Befehl ist das Gegenstück zum Befehl BMI. 


Beeinflusste Flags 

Beeinflussende Flags 

N V B 

: * 

- D 

I Z C 

Adressierungsart ! 

Symbol-Form ! 

Code 

! Bytes 

Relativ ! 

BPL Op ! 

10 

! 2 


BRK 


Break Softwaregesteuerte Unterbrechung 

Funktion: PC+2 auf Stapel; 

B = 1 ; 

Status auf Stapel; 

1 = 1; 

PCL = ($FFFE) ; 

PCH = ($FFFF) 

Durch diesen Befehl werden zunächst der höherwertige, dann 
der niederwertige Teil des um zwei erhöhten Programmzäh- 
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lers auf den Stapel gebracht, anschließend das Break-Flag 
gesetzt und dann der Status ebenfalls in den Kellerspei¬ 
cher gebracht. Schließlich wird noch das Interrupt-Disable 
-Bit gesetzt, um weitere Unterbrechungen zu verhindern. 
Das Programm springt dann zu der in den Zellen $FFFE und 
$FFFF angegebenen Adresse. Dieser Befehl arbeitet also 
ähnlich wie ein hardwareseitig ausgelöster IRQ-Interrupt. 
Der BRK-Befehl kann jedoch nicht verhindert werden, indem 
das I-Flag gesetzt wird. 

Dieser Befehl wird meist verwendet, um in der Testphase 
sogenannte Break-Points zu setzen, bei denen das Programm 
in eine definierte Routine, meistens eine Monitor-Routine 
springt. Diese Monitor-Routine endet mit RTI, wodurch 
Status und Programmzähler wieder hergestellt werden. 

Es ist zu beachten, daß das Programm dann beim zweiten 
Byte nach dem BRK-Befehl aufsetzt, da ja PC+2 auf den 
Stapel gebracht wurde. Deshalb muß das Monitorprogramm den 
gestapelten Wert entsprechend korrigieren. 

NVB-DIZC 
Beeinflusste Elags: 1 1 

Beeinflussende Flags: 


==============================================! 

Adressierungsart ! Symbol-Form ! Code ! Bytes ! 

-j 

Implizit ! BRK ! 00 ! 1 ! 


BVC 


Branch if Overflow Clear 


Verzweige, wenn V = 0 


Das Programm verzweigt, wenn das Overflow-Flag nicht ge¬ 
setzt ist. Diese Abfrage wird meistens nach einem BIT- 
Befehl verwendet, oder bei Verwendung von Addition und 
Subtraktion mit vorzeichenbehafteten 8-Bit-Zahlen. 

NVB-DIZC 

Beeinflusste Flags: 

Beeinflussende Flags: * 
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1-= 

! Adressierungsart 

1 

! Symbol-Form 

! Code 

! Bytes 

! Relativ 

I 

! BVC Op 

! 50 

! 2 

Branch if Overflow Set 

Der Befehl BVS ist die 

BVS 

Umkehrung zum 

Verzweige, wenn 

Befehl BVC. 


N V 

B - D 

I Z C 


Beeinflusste Flags: 
Beeinflussende Flags: 


Adressierungsart 

! Symbol-Form 1 

! Code ! 

1 Bytes 

Relativ ! 

! BVS Op 1 

! 70 ! 

! 2 


CLC 


Clear Carry-Flag Lösche Obertragsbit 

Durch diesen Befehl wird das Carry-Flag gelöscht. Er ist 
immer vor einer Addition anzuwenden, um zu verhindern, daß 
ein eventuell gesetztes Carry-Bit dazuaddiert wird. 


Beeinflusste Flags: 
Beeinflussende Flags: 


N V B 


D I Z C 
0 
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Adressierungsart 

Symbol-Form 

Code 

Bytes ! 

Implizit 

CLC 

18 

1 ! 


CLD 


Clear Decimal-Flag Lösche Dezimalarithmetik-Bit 

Durch diesen Befehl wird die BCD-Arithmetik abgeschaltet 
und die normale Binärarithmetik wieder eingeschaltet. Die 


Arithmetik wird 

beim 

SED-Befehl 

erklärt. 


Beeinflusste 
Beeinf lussende 

Flags 

Flags 

1 

N V 

B - D 

0 

I Z C 

! Adressierungsart ! 

1 

Symbo1-Form 

! Code 

! Bytes 

! Implizit 

i- 

! 

CLD 

! D8 

1 



Clear Interrupt Disable Flag Ermögliche Unterbrechungen 


Das I-Flag wird gelöscht, wodurch Unterbrechungen angenom¬ 
men werden können, die durch den Anschluß-Pin IRC angemel¬ 
det werden. Dieser Befehl muß in einer Unterbrechungs-Rou¬ 
tine gegeben werden, wenn verschachtelte Unterbrechungen 
zugelassen werden sollen. 


NVB-DIZC 
Beeinflusste Flags: 0 

Beeinflussende Flags: 
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Adressierungsart 

Symbol-Form 

Code 

Bytes ! 

Implizit 

CLI 

58 

1 ! 


CLV 


Clear Overflow Flag Lösche Obertragsbit 

Dieser Befehl löscht das Overflow-Flag. Er ist beim 6510 
jedoch relativ sinnlos, höchstens in der Kombination CLV- 
BVC, wodurch man einen unbedingten Sprung erhält. Der Be¬ 
fehl stammt noch aus dem Befehlssatz des 6502, bei dem das 
Setzen des Overflow-Flags durch einen Hardware-Anschluß 
möglich war. 


NVB-DIZC 
Beeinflusste Flags: 0 

Beeinflussende Flags: 


!-= 

! Adressierungsart 

i 

! Symbol-Form ! 

Code ! Bytes ! 

i 

! Implizit 
| 

! CLV ! 

B8 ! 1 ! 


CMP 


Compare to Accumulator 


Vergleiche mit Akku 

Bei diesem Befehl wird zunächst der Vergleichswert vom 
Akkumulator abgezogen, das Ergebnis jedoch nicht festge¬ 
halten. Der Akkumulator wird also nicht verändert. Oedoch 
werden die Flags so gesetzt, als ob eine Subtraktion 
stattgefunden hätte. Das Zero-Flag ist also dann gesetzt, 


wenn der Akkumulator identisch mit dem Vergleichswert war. 
Das Carry-Flag wird gesetzt, wenn der Vergleichswert klei¬ 
ner oder gleich dem Akkumulator war. Das Overflow-Flag 
wird jedoch nicht verändert. Die Behandlung des Negative- 
Flags ist meist sinnlos, da das virtuelle Ergebnis der 
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Subtraktion an sich meist keinen Informationswert besitzt. 


Tabellarisch kann man die 
folgt angeben: 

A kleiner als M: BCC 
A kleiner oder gleich M: BEQ 
A gleich M: BEQ 
A größer oder gleich M: BCS 
A größer als M: BEQ 


Verzweigungsmöglichkeiten wie 

/ BCC 
$+2, BCS 


NVB-DIZC 
Beeinflusste Flags: * * * 
Beeinflussende Flags: 


Adressierungsart 

! Symbol-Form 

J 

Code 

T 

Bytes 

Unmittelbar 

! CMP 

#0p 

! 

C9 

! 

2 

Zero Page 

! CMP 

Op 

j 

C5 

j 

2 

Zero Page , X 

! CMP 

0 p,x 

I 

D5 

J 

2 

Absolut 

! CMP 

Op 

J 

CD 

i 

3 

Absolut , X 

! CMP 

0 p,x 

J 

DD 

I 

3 

Absolut , Y 

! CMP 

Op, Y 

! 

D9 

J 

3 

Vor- indiziert 

! CMP 

(0p,x) 

j 

CI 

1 

2 

Nach-indiziert 

! CMP 

(Op),Y 

! 

Dl 

! 

2 


CPX 


Compare to X Vergleiche mit X-Register 

Hier geschieht das gleiche wie beim CMP-Befehl, jedoch 
wird anstatt dem Akku das X-Register verglichen. 


NVB-D IZC 
Beeinflusste Flags: * * * 
Beeinflussende Flags: 
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Adressierungsart 

! Symbol-Form 1 

! Code ! 

Bytes 

Unm ittelbar 

! CPX #0p ! 

I EO 1 

2 

Zero Page 

! CPX Op 

! E4 

2 

Absolut 

! CPX Op 

! EC ! 

3 


CPY 


Compare to Y Vergleiche mit Y-Register 

Dieser Befehl ist ebenfalls analog zum CMP-Befehl, jedoch 
wird hier das Y-Register anstatt dem Akku verwendet. 


NVB-DIZC 
Beeinflusste Flags: * * * 
Beeinflussende Flags: 


Adressierungsart 

! Symbol-Form 1 

! Code ! 

Bytes 

Unmittelbar 

! CPY #0p 1 

! CO ! 

2 

Zero Page 

! CPY Op 

! C4 ! 

2 

Absolut 

! CPY Op ! 

! CC ! 

3 


DEC 


Decrement Memory Vermindere Speicherzelle um 1 
Funktion: M = M - 1 

Mit dem DEC-Befehl kann man den Wert einer Speicherzelle 
um 1 vermindern. Entsprechend dem neuen Wert der Speicher¬ 
zelle werden Negativ- und Zero-Flag gesetzt. 


NVB-DIZC 
Beeinflusste Flags: * * 

Beeinflussende Flags: 
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1-= 

! Adressierungsart 
| 

! Symbol-Form 

! Code 

! Bytes ! 

! Zero Page 

! DEC Op 

! C6 

! 2 ! 

! Zero Page , X 

1 DEC Op,X 

! D6 

! 2 ! 

! Absolut 

! DEC Op 

! CE 

! 3 ! 

! Absolut , X 

! DEC Op,X 

! DE 

! 3 ! 


DEX 


Decrement X Vermindere X-Register um 1 
Funktion: X = X - 1 

Mit diesem Befehl wird das X-Register um eins vermindert. 
Da das X-Register meist als Schleifenvariable verwendet 
wird, kann man den Sprung zu einem weiteren Schleifen¬ 
durchlauf mit den Befehlen BNE oder BPL durchführen, je 
nach dem, ob die Schleife bis 1 oder bis 0 laufen soll. 


NVB-DIZC 
Beeinflusste Flags: * * 

Beeinflussende Flags: 


! Adressierungsart 

Symbol-Form 

Code ! Bytes 

! Implizit 

DEX 

CA ! 1 


DEY 


Decrement Y Vermindere Y-Register um 1 

Funktion: Y = Y - 1 

Das Y-Register wird um eins vermindert. 


NVB-DIZC 
Beeinflusste Flags: * * 

Beeinflussende Flags: 
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! Adressierungsart 

Symbol-Form 

Code 

Bytes ! 

! Im p 1 i z i t 

DEY 

88 

1 ! 


EOR 


Exclusive-Or Memory with Accumulator 

Akku mit Speicher Exklusiv-Odern 

Der Akkumulator wird mit dem Speicher exklusiv-oder-ver¬ 
knüpft, d.h. ein Bit wird im Akku genau dann gesetzt, wenn 
das entsprechende Bit entweder im Akku oder im Speicher 
gesetzt war. Ein Befehl EOR #$FF bewirkt also das Umkehren 
aller Bits im Akkumulator. 


NVB-DIZC 
Beeinflusste Flags: * * * 
Beeinflussende Flags: 


Adressierungsart 

Symbol-Form 

Code 

! Bytes 

Unmittelbar 

EOR 

Q_ 

O 

=tt= 

49 

! 2 

Zero Page 

EOR 

Op 

45 

! 2 

Zero Page , X 

EOR 

0p,x 

55 

! 2 

Absolut 

EOR 

Op 

! 4D 

! 3 

Absolut , X 

EOR 

0p,x 

5D 

! 3 

Absolut , Y 

EOR 

Op, Y 

! 59 

! 3 

Vor- indiziert 

EOR 

(0p,x) 

41 

! 2 

Nach-ind iziert 

EOR 

(Op),Y 

! 51 

! 2 


INC 


Increment Memory Erhöhe Speicherzelle um 1 
Funktion: M = M + 1 

Der Inhalt der angegebenen Speicherzellen wird um eins 
erhöht und die Flags N und Z entsprechend dem neuen 
Inhalt gesetzt. 
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NVB-DIZC 
Beeinflusste Flags: * * 

Beeinflussende Flags: 


Adressierungsart 

! Symbol-Form 

! Code ! 

! Bytes 

Zero Page 

! INC Op 

! E6 ! 

2 

Zero Page , X 

! INC Op,X 

! F6 

2 

Absolut 

! INC Op 

! EE ! 

3 

Absolut , X 

! INC Op,X 

! FE 1 

3 


INX 


Increment X Erhöhe X-Register um 1 
Funktion: X = X + 1 

Das X-Register wird um eins erhöht. Wenn dieser Befehl nur 
in einer Schleife verwendet wird, so sollte man das Ende 
der Schleife mit einem CPX #-Befehl abprüfen. 


NVB-DIZC 
Beeinflusste Flags: * * 

Beeinflussende Flags: 


1-- 

! Adressierungsart 

1 

! Symbol-Form 

! Code ! 

! Bytes ! 

! Implizit 

! INX 

! E8 ! 

1 ! 

i 

Increment Y 

INY 

Eröhe Y-Register 


Funktion: Y = Y + 1 


Das Y-Register wird um eins erhöht. 
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NVB-DIZC 
Beeinflusste Flags: * * 

Beeinflussende Flags: 


Adressierungsart 

Symbol-Form 

Code 

Bytes ! 

Implizit 

INY 

C8 

1 ! 


JMP 


Jump to new location Unbedingter Sprung 

Funktion: PCL = (PC+1); 

PCH = (PC+2) 

Der Programmzähler wird neu geladen, wodurch ein unbeding¬ 
ter Sprung ausgeführt wird. Es werden dabei keine Flags 
verändert. Die Adressierung ist auch indirekt möglich, was 
bedeutet, daß der Operand ein Zellenpaar angibt, in dem 
die effektive Sprungadresse steht. 


NVB-DIZC 

Beeinflusste Flags: 

Beeinflussende Flags: 


Adressierungsart 

! Symbol-Form ! 

! Code 1 

! Bytes 

Absolute 

! JMP Op ! 

! 4C ! 

! 3 

Indirect 

! JMP (Op) 

I 6C ! 

I 3 


JSR 


Jump to new location saving return adress 

Unterprogrammauf ruf 


Funktion: PC+2 auf Stapel; 

PCL = (PC+1); 

PCH = (PC+2) 















6510 - Der Prozessor des Commodore 64 


45 


Dieser Befehl entspricht dem Basic-Befehl GOSUB. Er rettet 
den momentanen Programmzähler und lädt ihn neu mit dem an¬ 
gegebenen Wert. Ein durch den JSR-Befehl aufgerufenes Un¬ 
terprogramm muß mit RTS beendet werden. 


NVB-DIZC 

Beeinflusste Flags: 

Beeinflussende Flags: 


!-: 

! Adressierungsart 
| 

! Symbol-Form 1 

! Code ! Bytes ! 

! Absolute 
| 

! JSR Op ! 

20 ! 3 ! 


LDA 


Load Accu with Memory 

Akku mit 

Speicher i nha lt laden 


Funktion: A = M 


Der Akkumulator wird mit dem Inhalt der angegebenen 
Speicherzelle geladen. Das Negativ- und das Zero-Flag 
werden entsprechend dem Wert verändert. 


NVB-DIZC 
Beeinflusste Flags: * * 

Beeinflussende Flags: 


! Adressierungsart ! Symbol-Form ! Code ! Bytes 

i- 


! Unmittelbar 
! Zero Page 
! Zero Page , X 
! Absolut 
! Absolut , X 
! Absolut , Y 
! Vor- indiziert 
! Nach-indiziert 


! LDA #0p ! 
! LDA Op ! 
! LDA Op,X ! 
! LDA Op ! 
! LDA Op,X ! 
! LDA Op ; Y ! 
! LDA (Op,X) ! 
! LDA (Op),Y ! 


A9 ! 2 ! 

A5 ! 2 ! 

B5 ! 2 ! 

AD ! 3 ! 

BD ! 3 ! 

B9 ! 3 ! 

Al ! 2 ! 

Bl ! 2 ! 
















46 


Kapitel 1 


LDX 


Load X with Memory X-Register mit Speicherinhalt laden 
Funktion: X = M 

Hier wird das X-Register einer Speicherzelle geladen und 
die Flags N und Z entsprechend verändert. 


NVB-DIZC 
Beeinflusste Flags: * * 

Beeinflussende Flags: 


Adressierungsart 

! Symbol-Form ! 

! Code ! 

! Bytes 

Unmittelbar 

! LDX #0p 

A2 1 

! 2 

Zero Page 

! LDX Op 

A6 

! 2 

Zero Page , Y 

! LDX Op,Y 

B6 ! 

! 2 

Absolut 

! LDX Op 

AE 

! 3 

Absolut , Y 

! LDX Op,Y 

BE 

! 3 


LDY 


Load Y with Memory Y-Register mit Speicherinha lt laden 
Funktion: Y = M 

Das Y-Register wird mit der angegebenen Speicherzelle 
geladen und das Negativ- und das Zero-Flag verändert. 


NVB-DIZC 
Beeinflusste Flags: * * 

Beeinflussende Flags: 
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! Adressierungsart 

! Symbol-Form 

! Code 

Bytes 

! Unmittelbar 

! LDY #0p 

! AO 

2 

! Zero Page 

! LDY Op 

! A4 

2 

! Zero Page , X 

! LDY Op,X 

! B4 

2 

! Absolut 

! LDY Op 

! AC 

3 

! Absolut , X 

! LDY Op,X 

! BC 

3 


LSR 


Logical Shift Right 

Akkuinhalt um 1 Bit nach rechts schieben 
Funktion: M = M / 2 


Der Akkumulator oder eine Speicherzelle werden um ein Bit 
nach rechts geschoben, d.h. das Bit 0 wird im Carry-Flag 
abgelegt, und von links wird eine Null in das Bit 7 nach¬ 
gezogen. Die übrigen Bits wandern jeweils eine Stelle nach 
rechts. Interpretiert man diese Operation arithmetisch, so 
entspricht sie einer Division durch 2, wobei der Rest im 
Carry-Bit steht. 


NVB-D IZC 
Beeinflusste Flags: 0 * * 
Beeinflussende Flags: 


! Adressierungsart 

Symbo1-Form 

! Code 

Bytes 

! Accumulator 

LSR A 

! 4A 

2 

! Zero Page 

LSR Op 

! 46 

2 

! Zero Page , X 

LSR Op,X 

! 56 

2 

! Absolut 

LSR Op 

! 4E 

3 

! Absolut , X 

LSR Op,X 

! 5 E 

3 
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NOP 


No Operation Leerbefehl 

Dieser Befehl ist ein Leerbefehl, und benötigt zwei Zyk¬ 
len, d.h. bei einer Zyklusfrequenz von 1 MHz genau 2 ps. 
Dieser Befehl wird eingesetzt um Warteschleifen zu bilden 
oder um in der Testphase Platz zu schaffen für Befehle, 
die man später einbauen will. 


NVB-DIZC 

Beeinflusste Flags: 

Beeinflussende Flags: 


Adressierungsart 

Symbol-Form 

Code 

Bytes ! 

Implizit 

NOP 

EA 

1 ! 


ORA 


Or Accu with Memory Akku mit Spe icher inhalt ‘oderieren 1 
Funktion: A = A v M 


Der Akkumulator wird mit der angegebenen Speicherzelle 
Oder-verknüpft. Entsprechend dem Ergebenis werden das N- 
und Z-Flag gesetzt. 


NVB-DIZC 
Beeinflusste Flags: * * 

Beeinflussende Flags: 
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Adressierungsart 

! Symbol-Form 

Code ! 

Bytes 

Unmittelbar 

! ORA #0p 

09 ! 

2 

Zero Page 

! ORA Op 

05 ! 

2 

Zero Page , X 

! ORA Op,X 

15 ! 

2 

Absolut 

! ORA Op 

OD ! 

3 

Absolut , X 

! ORA Op,X 

ID ! 

3 

Absolut , Y 

! ORA Op,Y 

! 19 ! 

3 

Vor- indiziert 

! ORA (Op,X) 

01 ! 

2 

Nach-indiziert 

! ORA (Op),Y 

11 ! 

2 


PHA 


Push Accumulator on Stack Akku auf Stapel bringen 

Der Akkumulator wird auf den Stapel gebracht. Der Stapel¬ 
zeiger (S) ist anschließend um eins vermindert. 


NVB-DIZC 

Beeinflusste Flags: 

Beeinflussende Flags: 


==============================================! 

Adressierungsart ! Symbol-Form ! Code ! Bytes ! 


Implizit ! PHA ! 48 ! 1 


PHP 


Push Processorstatus on Stack 

Bringe Status auf den Stapel 


Das Prozessorstatus-Register wird auf den Stapel gebracht. 
Damit sind alle Flags für eine spätere Benützung zwischen- 
gespeichert. 
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Beeinflusste Flags 

Beeinflussende Flags 

N V B 

. * * * 

-DI 

* * * 

z c 

* * 

Adressierungsart ! 

Symbol-Form ! 

Code ! 

Bytes 

Implizit ! 

PHP ! 

08 ! 

1 


PLA 


Pull Accumulator from Stack Hole Akku vom Stapel 


Der Akkumulator wird vom Stapel gezogen. Das Negativ- und 
das Zero-Flag werden entsprechend dem neuen Wert des Akku¬ 
mulators verändert. Der Stapelzeiger ist anschließend um 
eins erhöht. 


NVB-DIZC 
Beeinflusste Flags: * * 

Beeinflussende Flags: 


! Adressierungsart ! Symbol-Form ! Code ! Bytes ! 

!-! 

! Implizit ! PLA ! 68 ! 1 ! 


PLP 


Pull Processorstatus from Stack Hole Status vom Stapel 


Der Prozessorstatus wird vom Stapel gezogen. Danach können 
alle Flags verändert sein. Der PLP-Befehl ist das Gegen¬ 
stück zum PHP-Befehl. 
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NVB-DIZC 
Beeinflusste Flags: ******** 
Beeinflussende Flags: 


Adressierungsart 

! Symbol-Form ! 

! Code ! Bytes 

Implizit 

! PLP ! 

! 28 ! 1 


ROL 


Rotate Left One Bit 

Akku bzw. eine Speicherzelle 1 Bit linksherum rotieren 


Der Akkumulator bzw. eine Speicherzelle wird zusammen mit 
dem Carry-Flag um ein Bit nach links rotiert. Das Carry- 
Flag wird in das Bit 0 übertragen, Bit 0 in Bit 1 usw. bis 
schließlich Bit 7 in das Carry-Flag übertragen wird. Durch 
aufeinanderfolgende Rotate-Befehle, die auf verschiedene 
Speicherzellen wirken, kann man ein Shift-Left von mehr 
als 8 Bit erreichen. 

NVB-DIZC 
Beeinflusste Flags: * * * 
Beeinflussende Flags: * 


Adressierungsart 

Symbol-Form 

! Code 

! Bytes 

Acc umulator 

ROL A 

! 2 A 

! 2 

Zero Page 

ROL Op 

! 26 

! 2 

Zero Page , X 

ROL Op,X 

! 36 

! 2 

Absolut 

ROL Op 

! 2E 

! 3 

Absolut , X 

ROL Op,X 

! 3E 

! 3 
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ROR 


Rotate Right One Bit Akku 1 Bit rechtsherum rotieren 

Hier wird eine Speicherzelle oder der Akkumulator um ein 
Bit nach rechts rotiert. Das Carry-Flag wird in das Bit 7 
übertragen, Bit 7 in Bit 6 usw., schließlich wird das Bit 
0 in das Carry-Flag übertragen. 


NVB-DIZC 
Beeinflusste Flags: * * * 
Beeinflussende Flags: * 


Adressierungsart 

! Symbol-Form 

! Code 

! Bytes 

Accumulator 

! ROR A 

! 6 A 

! 2 

Zero Page 

! ROR Op 

! 66 

! 2 

Zero Page , X 

! ROR Op,X 

! 76 

! 2 

Absolut 

! ROR Op 

! 6E 

! 3 

Absolut , X 

! ROR Op,X 

! 7E 

! 3 



Return from Interrupt Rückkehr von Unterbrechung 

Funktion: P vom Stapel holen ; 

PC vom Stapel holen 


Dieser Befehl sollte am Ende einer Unterbrechungs- oder 
einer BRK-Routine stehen. Er stellt den alten Wert des 
Programmzählers und des Statusregisters wieder her. Es 
werden also drei Byte vom Stapel gezogen. 


NVB-DIZC 
Beeinflusste Flags: ******** 
Beeinflussende Flags: 
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!===============================================! 

! Adressierungsart ! Symbol-Form ! Code ! Bytes ! 

! - ! 

! Implizit ! RTI ! 40 ! 1 ! 


RTS 


Return from Subroutine Rückkehr von Unterprogramm 

Funktion: PC vom Stapel holen ; 

PC = PC + 1 


Dieser Befehl entspricht dem Basic-Befehl RETURN. Er 
verzweigt zum aufrufenden Programm. Da bei einem OSR- 
Befehl PC+2 auf den Stapel gelegt wurde, der JSR-Befehl 
selbst aber drei Byte beansprucht, muß nach dem Holen des 
PC vom Stapel dieser noch um eins erhöht werden, wodurch 
das Programm mit dem auf den JSR-Befel folgenden Befehl 
weitermacht. 


NVB-DIZC 

Beeinflusste Flags: 

Beeinflussende Flags: 


==============================================! 

Adressierungsart ! Symbol-Form ! Code ! Bytes ! 

- ! 

Implizit ! RTS ! 60 ! 1 ! 

==============================================i 


SBC 


Subtract Memory from Accu Speicher vom Akku abziehen 


Funktion: A=A-M-1+C 


Die Daten der angegebenen Speicherzelle werden vom Akku- 
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mulator abgezogen. Außerdem wird noch eine 1 abgezogen, 
wenn das Carry-Bit nicht gesetzt war. Das Negative- und 
Zero-Bit wird entsprechend dem neuen Wert des Akkumulators 
gesetzt. Das Carry-Bit wird gelöscht, wenn die Zahl, die 
abgezogen wird größer war als der alte Wert des Akkumula¬ 
tors. Das Overflow-Flag wird gesetzt, wenn der Bereich für 
eine vorzeichenbehaftete 8-Bit-Zahl überschritten wurde. 
Der Befehl arbeitet in binärer Arethmetik, wenn D gleich 0 
ist, sonst in BCD-Arithmetik (siehe SED-Befehl). 


NVB-DIZC 
Beeinflusste Flags: * * * * 

Beeinflussende Flags: * * 


Adressierungsart 

! Symbol-Form 

! Code 

| 

Bytes 

Unmittelbar 

! SBC 

#0p 

! E9 

! 

2 

Zero Page 

! SBC 

Op 

! E5 

| 

2 

Zero Page , X 

! SBC 

0 p,x 

! F5 

j 

2 

Absolut 

! SBC 

Op 

! ED 

| 

3 

Absolut , X 

! SBC 

0 p,x 

! FD 

! 

3 

Absolut , Y 

! SBC 

Op, Y 

! F 9 

j 

3 

Vor- indiziert 

! SBC 

(Op,X) 

! El 

! 

2 

Nach-indiziert 

! SBC 

(Op),Y 

! Fl 

! 

2 


Set Carry Flag Übertrags-Bit setzen 


Das Carry-Flag wird gesetzt. Dieser Befehl ist immer vor 
einer Subtraktion anzuwenden, wenn verhindert werden soll, 
daß ein eventuell gelöschtes Carry-Bit ein falsches 
Ergebnis hervorruft. 


NVB-DIZC 
Beeinflusste Flags: 1 
Beeinflussende Flags: 
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Adressierungsart 

Symbol-Form 

Code 

= i 

Bytes ! 

1 

Imp 1 iz it 

SEC 

38 

1 ! 
=-I 


SED 


Set Decimal Mode Dezimalarithmetik einschalten 

Durch diesen Befehl wird das Rechenwerk für Addition und 
Subtraktion auf BCD-Arithmetik umgeschaltet. Das bedeutet, 
daß im Akku nun zwei, jeweils in 4 Bit kodierte, Dezimal¬ 
ziffern stehen. 

Bei einer Addition geschieht dann folgendes: die nieder- 
wertigen 4 Bit von Akkumulator und Speicher werden zusam¬ 
men mit dem Übertrags-Bit addiert. Ein Übertrag auf die 
höherwertigen 4 Bit entsteht dann, wenn das Ergebnis grö¬ 
ßer als 9 ist. Anschließend werden die höherwertigen vier 
Bit mit diesem Übertrag addiert und es entsteht ein Über¬ 
trag, wenn insgesamt das Ergebnis größer als $99 ist. Die 
Subtraktion funktioniert analog. 


NVB-DIZC 
Beeinflusste Flags: 1 

Beeinflussende Flags: 


|-: 

! Adressierungsart 

! Symbol-Form 1 

! Code ! 

--| 

1 Bytes ! 

I 

! Implizit 

! SED ! 

! F 8 ! 

! 1 ! 
--1 



Set Interrupt Disable Bit Verhindere Unterbrechungen 


Durch diesen Befehl werden weitere Unterbrechungen, die am 
IRQ-Anschluß angemeldet werden nicht ausgeführt. Es ist 
machmal notwendig, zu verhindern, daß ein Programm unter¬ 
brochen wird, insbesondere, wenn die Sprungadresse 
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einer Unterbrechungsroutine geändert werden soll. 


NVB-DIZC 
Beeinflusste Flags: 1 

Beeinflussende Flags: 


! Adressierungsart ! 

1 _ _ 

Symbol-Form 

! Code ! Bytes ! 

1 

! Implizit 1 

| 

SEI 

! 78 ! 1 ! 

| 


STA 


Store Accumulator in Memory 

Akku speichern 

Der Akkumulator wird in 
schrieben. Dabei werden 

die angegebene Speicherzelle ge- 
keine Flags verändert. 


N V 

B - D I Z C 


Beeinflusste Flags: 
Beeinflussende Flags: 


Adressierungsart 

! Symbol-Form ! 

Code 

! Bytes 

Zero Page 

1 STA 

Op ! 

85 

1 2 

Zero Page , X 

1 STA 

Op,X ! 

95 

! 2 

Absolut 

! STA 

Op ! 

8D 

! 3 

Absolut , X 

! STA 

Op,X ! 

9D 

! 3 

Absolut , Y 

! STA 

Op, Y ! 

99 

! 3 

Vor- indiziert 

! STA 

(Op,X) ! 

81 

! 2 

Nach-ind iziert 

! STA 

(Op),Y ! 

91 

! 2 


STX 


Store X in Memory 


X-Register speichern 


Das X-Register wird ohne Veränderung von Flags in die an- 
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gegebene Speicherzelle geschrieben. 

NVB-DIZC 

Beeinflusste Flags: 

Beeinflussende Flags: 


Adressierungsart 

! Symbol-Form ! 

! Code ! 

Byte s 

Zero Page 

! STX Op 

86 ! 

2 

Zero Page , Y 

! STX Op, Y 

! 96 ! 

2 

Absolut 

! STX Op 

! 8E ! 

3 


STY 


Store Y in Memory Y-Register speichern 


Dieser Befehl funktioniert analog dem STX-Befehl. 


NVB-DIZC 

Beeinflusste Flags: 

Beeinflussende Flags: 


Adressierungsart 

! Symbol-Form 

! Code 

Byte s 

Zero Page 

! STY Op 

! 84 

2 

Zero Page , X 

! STY Op ; X 

! 94 

2 

Absolut 

! STY Op 

! 8C 

3 


TAX 


Transfer Accu to X Übertrage Akku ins X-Register 

Der Inhalt des Akkumulators wird in das X-Register kopiert 
und das N- und Z-Flag entsprechend gesetzt. 
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N V B 

Beeinflusste Flags: * 

Beeinflussende Flags: 

1 

- D 

I z c 
* 

1 

! Adressierungsart ! 

1 __ _ _ _ __ 

! Symbol-Form ! 

Code 

! Bytes ! 

1 

! Implizit ! 

i 

I TAX ! 

! AA 

! 1 ! 

i 


TAY 



Transfer Accu to Y 

Übertrage 

Akku 

ins Y-Register 

Der Akkumulator wird in das Y-Register kopiert und eben 
falls die Flags entsprechend gesetzt. 

N V B 

Beeinflusste Flags: * 

Beeinflussende Flags: 

1 

- D 

I z c 
* 

- 1 

! Adressierungsart 
| 

! Symbol-Form 1 

Code 

! Bytes ! 

1 

! Implizit 

|-- 

! TAY 1 

! A8 

! 1 ! 


TSX 


Transfer Stackpointer to X 

Überträge Stapelzeiger ins X-Register 


Der momentane Wert des Stapelzeigers wird in das X-Re- 
gister übertragen. Dabei werden wieder N- und Z-Flag 
ve rändert. 


NVB-DIZC 
Beeinflusste Flags: * * 

Beeinflussende Flags: 
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! Adressierungsart ! Symbol-Form ! Code ! Bytes ! 

I-1 

! Implizit ! TSX ! BA ! 1 ! 


TXA 


Transfer X to Accu Übertrage X-Registerin den Akku 

Das X-Register wird in den Akku übertragen und die Flags N 
und Z entsprechend angepaßt. 


NVB-DIZC 
Beeinflusste Flags: * * 

Beeinflussende Flags: 


Adressierungsart 

Symbol-Form 

Code 

Bytes ! 

Implizit 

TXA 

8 A 

1 ! 


TXS 


Transfer X to Stackpointer 

Übertrage X-Register in den Stapelzeiger 


Dies ist der einzige Befehl, mit dem man den Stapelzeiger 
laden (beschreiben) kann. Und zwar wird hier das X- 
Register in den Stapelzeiger übertragen. Dabei werden 
keine Flags verändert. 

NVB-DIZC 

Beeinflusste Flags: 

Beeinflussende Flags: 


! Adressierungsart ! Symbol-Form ! Code ! Bytes ! 

! - ! 

! Implizit ! TXS ! 9A ! 1 ! 
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TYA 

Transfer Y to Accu Überträge Y-Register in den Akku 

Das Y-Register wird in den Akkumulator kopiert und die 
Flags entsprechend angepaßt. 

NVB-DIZC 
Beeinflusste Flags: * * 

Beeinflussende Flags: 


Adressierungsart 

Symbol-Form 

Code 

Bytes ! 

Implizit 

TYA 

98 

1 ! 


1.6 Einfache Beispiele für Maschinenprogramme 


Wir wollen in diesem Kapitel nur zwei ganz einfache Bei¬ 
spiele für Maschinenprogrammierung vorstellen, zum einen 
eine 16-Bit Addition, zum anderen das Suchen eines Wertes 
in einer Tabelle. Mit diesen einfachen Beispielen werden 
aber bereits die wesentlichen Befehle und Adressierungs- 
arten des 6510 deutlich. Kompliziertere Beispiele können 
Sie in Kapitel 4 sehen, wo Hilfsroutinen für den Assembler 
vorgestellt sind. Außerdem sind in Band 1 und Band 3 zahl¬ 
reiche weitere Beispiele bei den Grafikerweiterungen zu 
finde n. 

16-Bit-Addition 


140 

0000 

0000 

SUN 1 

: WOR 0 .? 1. SUMMAND 

150 

0002 

0000 

SUMS 

: WOR 0 £. SUMMAND 

160 

170 

0004 

0006 

0000 

SUMME:WOR 0 ? ERGEBNIS 

180 

0006 


FIDO ITI OH : 

190 

0006 

D8 

OLD 

; BIN fl E R fl RIT H M E TIK E1N 

200 

Ut;l0 

18 

CLO 

; LIEBER:TRAG LÜESCHEN 

210 

0003 

RD00C0 

LDFl 

BUM1 jl.SUM. LOW—BYTE 

220 

C00B 

800200 

FIDO 

SUMS 2.SUM.LOW—BYTE 

230 

C00E 

8D0400 

STR 

SUMME ;= SUMME LOW-BYTE 

240 

C01 1 

HÜ0 :L 00 

LDFl 

SUM 1 +1 ; 1. SUM.. HI GH—BYTE 

250 

C014 

6D0300 

fl DO 

BUM2+1 ;+2.SUM HIGH-BYTE 

260 

C01 7 

8D0500 

ST fl 

SUMME i-l .—SUMME HIGH-BYTE 

270 

CO 1 Fl 

8000 

R EOS 

FEHLER ; WENN SUMME!;# FFFF 

280 

00 IC 

68 

RTS 

;EHIUE DER ROUTINE 
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In diesem kleinen Unterprogramm werden zunächst drei Worte 
(zwei Byte) definiert, SUM1 und SUM2, die die Summanden 
der 16-Bit Addition darstellen und als Eingabeparameter 
für das Programm dienen. In einem weiteren Wort SUMME soll 
das Ergebnis der Addition abgelegt werden. Das Programm 
beginnt mit dem Label ADDITION. Dort wird zunächst das De¬ 
zimal-Flag gelöscht, da wir ja hier eine binäre 16-Bit-Ad- 
dition ausführen wollen. Außerdem wird das Carry-Flag ge¬ 
löscht, da sonst eine weitere eins hinzu addiert werden 
würde. Diese beiden Befehle können entfallen, wenn durch 
das Aufrufen des Programms sichergeste1lt ist, daß diese 
beiden Flags gelöscht sind. 

Das einzige für Arithmetik verwendbare Register ist der 
Akkumulator. Deshalb wird er mit den niederwertigen acht 
Bit des ersten Summanden geladen, dann die niederwertigen 
acht Bit des zweiten Summanden hinzuaddiert und das Ergeb¬ 
nis, das wieder im Akku steht, in die niederwertigen acht 
Bit des Ergebnisses gespeichert. 

Nach dieser Addition kann das Carry-Bit gesetzt sein. Die¬ 
sen Übertrag können wir bei der Addition der höherwertigen 
acht Bit mit verarbeiten. Dazu wird zunächst der Akkumula¬ 
tor mit dem höherwertigen Byte des ersten Summanden gela¬ 
den, und dann dazu das höherwertige Byte des zweiten Sum¬ 
manden addiert. Bei dieser Addition wird der Übertrag be¬ 
reits mitverarbeitet. Dann wird das Ergebnis, welches wie¬ 
der im Akkumulator steht in das höherwertige Byte des Er¬ 
gebnisses gespeichert. 

Ist nach dieser Addition das Carry-Bit gesetzt, so bedeu¬ 
tet dies, daß der zulässige Bereich für eine vorzeichen- 
lose 16-Bit-Binärzahl überschritten wurde. Dann muß zu 
einer Fehlermeldungs-Routine verzweigt werden, die wir 
hier jedoch nicht angegeben haben. Wurde der zulässige 
Bereich eingehalten, so wird dann das Unterprogramm mit 
RTS verlassen. 

Es ist immer sinnvoll, eine Fehlerbehandlung für die Fälle 
vorzusehen, für die das Maschinenprogramm nicht ausgelegt 
ist. Das gleiche Maschinenprogramm kann man übrigens für 
die Addition von Vorzeichenbehafteten 16-Bit-Binärzahlen 
verwenden. Dann muß aber die Fehler-Routine aufgerufen 
werden, wenn das Overflow-Flag gesetzt ist. Die vorletzte 
Zeile des Programms muß also geändert werden in: 


BVS FEHLER. 
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Suchen eines Wertes in einer Tabelle 

RSSEMBLIEREN VON TRB.SEC 
0 B JECT-DRTEI IST TflB.0 BJ 
SVMBOL-TRBELLE IST TRB.SVM 


ZEILE 

fl DR „ 

OBJ 

►: QUELL TEXT 

180 

CI 00 


KORO $C100 

110 

CI 00 


; 

128 

C 1 00 


SUCHEN IN EINER TABELLE *** 

130 

CI 00 


; 

140 

C 1 00 

00 

SUCH: BVT 0 ;ZU SUCHENDER WERT 

150 

C 1 0 1 

00 

POS: BVT 0 POSITION DES WERTES 

160 

CI 02 


; 

1 70 

CI 02 


TR 13 Fl NF : 

180 

C102 

85 

BVT 5 

190 

C1 03 

08 

BVT 8 

200 

C104 

03 

BVT 3 

210 

CI 05 

09 

BVT 3 

220 

CI 06 

07 

BVT 7 

230 

C107 

00 

BVT 0 

£40 

CI 03 

01 

BVT 1 

250 

C109 


TRBEND: 

260 

C103 


; 

270 

C103 

R207 

L.DX ttTRBEND-TRBRHF ;TRB. GROESSE 

230 

C10B 


SCHLEIFE : 

290 

C1.0B 

r—i 

tu 

□ 

LÜ 

LDR TRBRNF..X ;WERT AUS TABELLE 

300 

C18E 

CD00C1 

CNF' SUCH ;NIT SUCHWERT VERÖL. 

310 

C1 1 1 

F 000 

3 BEQ SUCHEND rWENN GEF.. ZU SUCHEND 

320 

C1 13 

CR 

DEX ;NHECHSIES CVORIOES > BVTE 

330 

CI 14 

1 0F5 

BPL SCHLEIFE BIS X < 0 

340 

C1 16 


SUCHEND: 

350 

C1 16 

8E01C1 

STX POS ;ERGEBNIS ABLEGEN 

360 

C1 19 

60 

RTS ..-ENDE DER ROUTINE 

370 

C Hfl 


; 

370 

C11R 




ORTE IENDE ERREICHT 


Das Programm soll folgende Aufgaben erfüllen: Es soll die 
Position eines 8-Bit-Wertes in einer Tabelle von 8-Bit- 
Werten bestimmen. Wird der Wert nicht gefunden, so soll 
die Position $FF ausgegeben werden. Eingabeparameter ist 
eine Speicherzelle SUCH, in der der zu suchende Wert ent¬ 
halten ist, Ausgabeparameter ist eine Zelle POS, mit der 
die Position des Zeichens übergeben wird. 
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Das Programm muß in einer Schleife alle Werte der Tabelle 
durchsuchen, bis der gewünschte Wert gefunden ist, oder 
die Tabelle zu Ende ist. Dazu wird zunächst das X-Register 
mit der Größe der Tabelle geladen. Die Größe der Tabelle 
berechnet sich einfach aus TABEND-TABANE. Dann wird der 
Akku mit dem letzten Zeichen der Tabelle geladen, was hier 
durch die indizierte Addressierung LDA TABANE,X geschieht. 
Dieser Wert wird mit dem suchenden Zeichen mit CMP SUCH 
verglichen. Wurde Übereinstimmung gefunden, so wird zum 
Ende des Unterprogramms verzweigt, wo das X-Register, wel¬ 
ches ja die Position enthält, in die Ergebnis-Zelle POS 
gespeichert wird. 

Bei einer Nicht-Übereinstimmung wird das X-Register um 
eins vermindert, damit die indizierte Anweisung LDA 
TABANF,X nun auf das nächste (hier das vorhergehende) Byte 
der Tabelle zeigt. War das X-Register bereits Null, so 
enthält es nun den Wert $FF. Dann ist das Negativ-Flag 
gesetzt, und man kann daran erkennen, daß die Tabelle zu 
Ende ist. In diesem Fall braucht nur noch das X-Register 
in das Ergebnis-Register POS abgelegt zu werden, und das 
Unterprogramm wird verlassen. 

Es ist besonders zu beachten, daß dieses Unterprogramm nur 
für Tabellen bis zu 127 Byte Größe geeignet ist. Für grö¬ 
ßere Tabellen bis 254 Byte kann das Programm fast ähnlich 
übernommen werden, wenn man den Befehl BPL SCHLEIFE durch 
die Befehlsfolge CPX #$FF , BNE SCHLEIFE ersetzt. Für noch 
größere Tabellen kann man die Tabelle nicht mehr mit einem 
einzigen Index-Register verwalten, sondern man muß die in¬ 
direkte Adressierung über ein Zellenpaar in der Zero-Page 
a nwe nden. 

Die Anwendung dieser indirekt-indizierten Adressierung 
können Sie z.B. in Kapitel 4.9 verfolgen, wo eine Zeichen¬ 
reihe in einer anderen gesucht wird. Dies ist ein erwei¬ 
tertes Beispiel für das Suchen eines Zeichens in einer 
Tabe Ile. 


1.7 Die Befehle in numerischer Reihenfolge 


Wir wollen in diesem Kapitel eine Tabelle angeben, die 
sämtliche Befehle des 6510-Prozessors enthält. Diese Ta¬ 
belle ist nützlich, wenn Sie ein kleines Programm per Hand 
disassemb1ieren wollen. Aus dieser Tabelle sind auch die 
nicht verwendeten Codes ersichtlich. Zu jedem Befehl wird 
neben dem Code die mnemotechnische Bezeichnung mit der 
entsprechenden Adressierungsart angegeben. 
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00 BRK 

01 ORA (Op,X) 
02 illegal 
03 illegal 
04 illegal 
05 ORA Op 
06 ASL Op 
07 illegal 
08 PHP 
09 ORA #0p 
OA ASL A 
OB illegal 
OC illegal 
OD ORA Op 
OE ASL Op 
OF illegal 

10 BPL Op 

11 ORA (Op),Y 

12 illegal 

13 illegal 

14 illegal 

15 ORA Op,X 

16 ASL Op,X 

17 illegal 

18 CLC 

19 ORA OP , Y 
1A illegal 
1B illegal 
IC illegal 
ID ORA Op,X 
IE ASL Op,X 
1F illegal 

20 3SR Op 

21 AND (Op,X) 

22 illegal 

23 illegal 

24 BIT Op 

25 AND Op 

26 ROL Op 

27 illegal 

28 PLP 

29 AND #0p 
2A ROL #0p 
2B illegal 
2C BIT Op 
2D AND Op 
2E ROL Op 
2F illegal 

30 BMI Op 

31 AND (Op),Y 

32 illegal 


33 illegal 

34 illegal 

35 AND Op,X 

36 ROL Op,X 

37 illegal 

38 SEC 

39 AND Op , Y 
3A illegal 
3B illegal 
3C illegal 
3D AND Op,X 
3E ROL Op,X 
3F illegal 

40 RTI 

41 EOR (Op,X) 

42 illegal 

43 illegal 

44 illegal 

45 EOR Op 

46 LSR Op 

47 illegal 

48 PHA 

49 EOR #0p 
4A LSR A 
4B illegal 
4C 3MP Op 
4D EOR Op 
4E LSR Op 
4F illegal 

50 BVC Op 

51 EOR (Op),Y 

52 illegal 

53 illegal 

54 illegal 

55 EOR Op,X 

56 LSR Op,X 

57 illegal 

58 CLI 

59 EOR Op,Y 
5A illegal 
5B illegal 
5C illegal 
5D EOR Op,X 
5E LSR Op,X 
5F illegal 

60 RTS 

61 ADC (Op,X) 

62 illegal 

63 illegal 

64 illegal 

65 ADC Op 
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66 ROR Op 

67 illegal 

68 PLA 

69 ADC #0p 
6A ROR #0p 
6B illegal 
6C OMP (Op) 

6D ADC Op 
6E ROR Op 
6F illegal 

70 B VS Op 

71 ADC (Op),Y 

72 illegal 

73 illegal 

74 illegal 

75 ADC Op,X 

76 ROR Op ; X 

77 illegal 

78 SEI 

79 ADC Op,Y 
7A illegal 
7B illegal 
7C illegal 
7D ADC Op,X 
7E ROR Op ; X 
7F illegal 

80 illegal 

81 STA (Op,X) 

82 illegal 

83 illegal 

84 STY Op 

85 STA Op 

86 STX Op 

87 illegal 

88 DEY 

89 illegal 
8A TXA 

8B illegal 
8C STY Op 
8D STA Op 
8E STX Op 
8F illegal 

90 BCC Op 

91 STA (Op),Y 

92 illegal 

93 illegal 

94 STY Op,X 

95 STA Op ; X 

96 STX Op ; Y 

97 illegal 

98 TYA 


99 STA Op , Y 
9A TXS 
9B illegal 
9C illegal 
9D STA Op,X 
9E illegal 
9F illegal 
AO LDY #0p 
Al LDA (Op,X) 
A2 LDX #0p 
A3 illegal 
A4 LDY Op 
A5 LDA Op 
A6 LDX Op 
A7 illegal 
A8 TAY 
A9 LDA #0p 
AA TAX 
AB illegal 
AC LDY Op 
AD LDA Op 
AE LDX Op 
AF illegal 
BO BCS Op 
Bl LDA (Op),Y 
B2 illegal 
B3 illegal 
B4 illegal 
B5 LDA Op ; X 
B6 LDX Op ; Y 
B7 illegal 
B8 CLV 
B9 LDA Op ; Y 
BA TSX 
BB illegal 
BC LDY Op ; X 
BD LDA Op,Y 
BE LDX Op,Y 
BF illegal 
CO CPY #0p 
CI CMP (Op,X) 
C2 illegal 
C3 illegal 
C4 CPY Op 
C5 CMP Op 
C6 DEC Op 
C7 illegal 
C8 INY 
C9 CMP #0p 
CA DEX 
CB illegal 
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CC CPY Op 
CD CM P Op 
CE DEC Op 
CF illegal 
DO BNE Op 
Dl CMP (Op),Y 
D2 illegal 
D3 illegal 
D4 illegal 
D5 CMP Op,X 
D6 DEC Op ; X 
D7 illegal 
D8 CLD 
D9 CMP Op,X 
DA illegal 
DB illegal 
DC illegal 
DD CMP Op,X 
DE DEC Op,X 
DF illegal 
EO CPX #Op 
El SBC (Op ; X) 
E2 illegal 
E3 illegal 
E4 CPX Op 
E5 SBC Op 


E6 INC Op 
E7 illegal 
E8 INX 
E9 SBC #Op 
EA NOP 
EB i1lega 1 
EC CPX Op 
ED SBC Op 
EE INC Op 
EF illegal 
FO BEQ Op 
Fl SBC (Op),Y 
F2 illegal 
F3 illegal 
F4 illegal 
F5 SBC Op,X 
F6 INC Op,X 
F7 illegal 
F8 SED 
F9 SBC Op,Y 
FA i1lega 1 
FB illegal 
FC illegal 
FD SBC Op,X 
FE INC Op,X 
FF illegal 


1.8 Basic-Progra«» zur Erläuterung 


Die meisten Leser werden mit Basic vertraut sein, aber 
trotz der vorhergehenden Erläuterung noch ein paar Schwie¬ 
rigkeiten mit der Funktion der einzelnen Maschinenbefehle 
haben. Wir wollen deshalb im folgenden ein Basic-Programm 
vorstellen, welches die Maschinenbefehle simuliert. Den 
Prozessorregistern entsprechen dabei einfache Variablen 
und der Stapel wird mit Hilfe eines Arrays simuliert. Die 
momentanen Werte der Prozessorregister werden am Bild¬ 
schirm in hexadezimaler Form ausgegeben. Durch die Ver¬ 
wendung von Basic dauert die Ausführung eines Befehls sehr 
lang, d.h. etwa 100000 mal länger, als der Prozessor 
selbst arbeitet. Dies ist aber gerade dazu gut, um in 
einer Art Einzelschrittverfahren die Funktion eines Pro¬ 
gramms nachzuvollziehen. 

Das Programm wird mit 

LOAD"DEM06510",8 

geladen. Danach fragt das Programm nach der Startadresse, 
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ab der ein Programm bearbeitet werden soll. Das zu testen¬ 
de Maschinenprogramm muß also bereits im Speicher stehen. 
Man kann sowohl eingebaute ROM-Routinen testen, als auch 
mit einen Assembler erstellte Programme nachvollziehen. 

Auch ist es möglich, kleine Programme mit POKE-Befehlen 
einzugeben und dann ab der entsprechenden Speicherzelle 
den Test zu starten. 

Im Anschluß werden die Werte der Prozessorregister, die an 
das Programm übergeben werden sollen, erfragt. Dabei kann 
man den Wert des Prozessorstatusregisters in binärer Form 
eingeben. Schließlich werden noch bis zu 10 Adressen er¬ 
fragt, bei denen das Programm anhalten soll. Wird im Pro¬ 
grammablauf eine dieser Adressen erreicht, so hält das 
Programm an. Alle Eingaben - außer den Daten des Prozes¬ 
sorstatusregisters - müssen in hexadezimaler Form erfol¬ 
gen. 

Nun wird das Programm schrittweise abgearbeitet und der 
aktuelle Stand der Prozessorregister nebeneinander auf dem 
Bildschirm angezeigt. Durch Drücken der SHIFT-Taste kann 
man das Programm kurzzeitig anhalten. 

10 PRINT"3 PC HV—BDIZÖ flC MR VR SP 
12 H E T ='' 01234567S 9 flBCDEF " 


14 

DIMSTM<: 

255>sREM STACK 

16 

DEFFNEO 

M := f'1 AND (NOT H > > OR C CHOT M > AND A 

18 

deffh'v 1 

X y =X -• 4 8 +7 $ < X > 6 4 J 1 

20 

DEFFNF0 

< X > = C Fl S C < MID T < H 0 T , X1 > > - 4 8 > AND 1 

2 ' cL 

G0SUB2ÜI 

00 

24 

I NF'IJT " ä 

41" ; HUT 

26 

H H T=L„ E F T T < H 0 T4 > : G 0 8 : U E: 400 : P C = H H 

2 

N=FNF0 1 

f 

30 

V=FHF0 ■: 

8 > 

• J 2 

P5=FHF0 

< 3 

34 

B--FNF0 < 

10 

3 6 

D—FHF0C 

11 > 


I.-FNF0< 

12 > 

40 

2-=FNF0 < 

13 > 

4 2 

C=FNF0< 

1 4 > 

44 

I-IT--MI DT 

H0T . 18,2 > : G OS LJ B350 : A~H 

46 

HT=MIDT 

<: H0T ... 222 > ; GOSUB350 : X=H 

48 

HT=MIDT 

HÜT , 26,2 > : GO SU13350 : V=H 

50 

HT=:M I DT 

■; HUT , 30,2 ' : GOSUE350 : S=H 

52 

PR I NT " S 

El" 

54 

HP=HP+1 


5 6 

PRIHTHP 

"II.. ABBRUCHE UN KT" : 


58 INPUT" BIBil" ,-HH* 

60 IFHH*=" " TH EH HP == HF' .1 :G0T068 

62 GOSUB400 
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64 HP PH FC 1 -UH 
6 6 U U T U 6 4 
68 PF? I NT " □ 

70 G 0 SIJ B4 900 0 
72 GOTO1000 

150 REM *** WERT IW HIGH- UND LOW ZERLEGEN *** 

160 HI = I NT <HHX256> 

170 L0=HH-£56*HI 
180 RETURN 

£00 REM * 2—STELL I GE HEXZFlHL <HT> Fl US H BILDEN * 

£ 10 HT=M I D'f < HET... H/16+1 , 1 > + MI DT C HET , <HR HD 1 5 > +1 1 > 

££0 RETURN 

£50 REM 4 4-STELLIGE HEXZfiHL. PHUT> RIJS HH BILDEN * 

£60 H =IN T CHH/£56 J 

£70 GOSUB£00 

£80 HHT--HT 

£90 H=HH-£56*H 

300 GOSUB£00 

310 HHT=HHT+HT 

320 RETURN 

350 REM * WERT VON 2—STELL IG [ER HEX-ZRHL P FIT > -> H * 

360 H= 16*FNV P Fl SC P HT > > +FNV < flSC < MI DT < HT., £ > > > 

370 RETURN 

400 REM * WERT VON 4—STELLIGER HEX-ZRHL PHHT> -> HH * 

410 HT--LEFTT P HHT , £ > 

4£0 GOSUB350 
430 HH=£56#H 
440 HT=R I GH TT P HHT2 > 

450 GOSUB350 
460 HH=HH+H 
470 RETURN 

1000 REM *** SCHLEIFE F'IJER JEDEN BEFEHL **$ 

1010 G 0 S IJ B2008 
1020 IFHP=0THEN1000 

1030 FÜR J= 1 TO HF': I FPC=HP P J > TUEN 1080 

1035 HEXTJ 

1040 ÜF'=PEEFP(PC) 

1045 H=OP SGOSUB20Q SPRINT"OPCODE s "HT" " ,s 
1050 G 0 8 U B1 10 0 
1055 PC = F'C+1 
1060 GOTO 1000 

1080 PRINT"ABBRUCH P";J;”> " ; 

1090 STOF' 
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2000 REN 444 ANZEIGE 444 
2010 H H=P C : G 0 SIJ B250 : P Ü * = H H * 

2020 ST*=CHR * < 48+N)+ CHR*C48+V 5+CHR* C 48+P5 5 +CHR*C 48+B5 
2038 ST*=ST*+CHR*<48+05+CHR*C48+15+CHR* C 48+Z5+CHR*C48+C5 
2 0 40 H=A : G 0 S U B200 : A *=H * 

2050 H---X : G0SIJB200 : X*=H* 

2060 H=V : G 0 S IJ B200: V * =-- H * 

2 0 70 H -- S : G 0 S IJ Ei200 : S *=H * 

2090 PRINT" iäoa "PC*" "ST*" "A*" "X*.V*" "S* 

2100 RETURN 

3000 REN 444 1 —BYTE—OPERAND HOLEN 444 
3010 PC=PC+1 
3020 Q=F'EEKC PC 5 
3030 RETURN 

4000 REN 444 2-BVTE—OPERAND HOLEN 444 
4010 PC=PC+1 
4020 0=P E E K < P C > 

4030 PC--PÜ+1 
40 4 0 U iJ— i_i+2 5 8 4 F E E KF -1 1J 
4050 RETURN 

5000 REN 444 STATUS ZUSAMMENFASSEN *** 

5010 P=128*N+64*V+32#P5 +16*B+8*D+4*I+ 2*Z+1 *C 
5020 RETURN 

6000 REN 44* STATUS ZERLEGEN 444 

6010 N=<P AND 1285/128 

6020 V=<P AND 645/64 

6Li3 0 P5 =F' ANEi 32/32 

6040 Ei = P AND 16 5 / .16 

6050 D ■■= < P AND 8 5 / 8 

6060 I=CP AND 45/4 

6070 Z =(P AND 2 5/2 

6080 C=P AND 1 

6090 RETURN 

7000 REN 444 RELATIVEN SPRUNG RUSFUEHEEN 444- 
7010 IF0>127THEN0=0-256 
7020 F'C=PC+0 
7030 RETURN 

8000 REN 444 A=A+N+C <ADC-BEFEHL5 444 

8010 IF 0=0 THEN A=A+N+C : C=.—CFD-255 5 s GOTOS070 

8020 H=<A AND 155 + CN AND 155 + C 

8030 C = -<H>95 

8040 H=H AND 15 

8050 A= <A AND 240 5 + CN AND 240 5 + H + 164C 

8060 Ü = -CA>935 

8070 A = A AND 255 

8080 N = CA AND 1285/128 

809Ü Z = —CA=@5 

8100 RETURN 

8200 REM 444 H=A-N-1+C CSBC.BEFEHL 5 444 

8218 IF 0=0 TUEN A=A-M-1+C : C=-CA>=05 s GOTO8270 
8220 H=CA AND 155 - CN AND 155 - 1 ■+■ C 
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8230 U = -<H>=ü> 

8240 H-----1-1 FIND 15 

8250 R= T Fl RND 240 > - (M AND 240 > + H - 16 + 16#C 
8260 C = -<fl>=0> 

8270 R = Fl RND 255 
8280 H -- 0=1 RND 128>,-'128 
8290 Z = -<fl=0> 

8300 RETURN 

8400 REM *** fi-M <CMP—BEFEHLS *** 

8410 C -<CR-M>>=0> 

8420 N = < <fl—M> FIND 128 >,-'128 
8430 Z = - <: fl-M > =0 > 

8440 RETURN 

10000 REM *** BRK 

10005 HH=PC+2 : GOSI.JB 1 50 

10010 STK C S > =H I : S= < S-1 > RND 255 

10015 STK T S > =L0 5S= T S-1 > RND 255 

10020 B=1 

10025 G 0 SI. J B5600 

10030 ST K < S > = P : S = < S-1 > RND 255 
10035 1=1 

10040 F'C=PEEK C 65534 > +256*F'EEK C65535 > 

10045 G0SUB2000 
10050 PRINT"BRK ERREICHT"; 

10055 END 

10100 REM ORR < INDI RE CT, X > 

10110 G Ci S U B3000 

10120 O0=PEEK < Oh-X > +2564PEEK < 0+X +1 > 

10130 R=R OR PEEKCDCO 
10140 N=CR RND 128 >/128 
1 0 1 5 0 Z =: — < R = 0 > 

10160 RETURN 

10500 REM *** ORR ZEROPRGE 
10510 GOSUB3000 
10520 R=fl OR F'EEK < 0 > 

10530 H=CR RND 128>,-'128 
10540 Z=— <: R=0 > 

10550 RETURN 

10600 REM *** RSL ZEROPRGE 
10 610 G 0 S U B3000 
10620 M=PEEK<Ü> 

18630 M=M*2 
10640 C=- C M > 2 5 51 > 

10650 M=M FIND 255 
10660 F'OKEOM 
10670 Z=—<M=0> 

10680 N= CM RND 128>,-'128 
10690 RETURN 
10800 REM *** PHP 
10810 G O S U E:5000 

1 0820 STK 8 > =F' : S= C S- 1 > RND 255 
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16330 RETURN 

10900 REN :+•+.+ ORR ttlMNEDIRTE 

10910 G0SUB3000 

10920 R=R OR O 

10930 N=CR RI •ID 128 }/123 

10940 Z=— < R=0 

10950 RETURN 

11000 REN W# 1=1 SL R 

11010 fl=fl*2 

11020 C-— C R>255 

11030 R=R RND 255 

11040 Z=— R---0 ':> 

11050 N=CR RND 128::'/128 
11060 RETURN 

11300 REN m* ORR ABSOLUTE 
11310 GOSUB4000 
11320 fl=A OR F'EEK ODO /' 

11330 N=Cfl RND 128 >/128 
11340 Z=—<:R=0> 

11350 RETURN 

1140O REN RSL ABSOLUTE 

11410 00SUB4OO 0 
11420 M= F'EEK 100 > 

11430 N=N*2 
11440 C=- ■:! N>255 > 

11450 M=M RND 255 
11460 F'OKE00N 
11470 Z=-<N=0> 

1 14 8 O N = C N R N D 12 8 > /12 8 
11490 RETURN 
11600 REN •+:+* BF'L 
1 .1610 00SIJ B 3 O 0 O 
11620 IFN=0THENGOSUB7000 
11630 RETURN 

117O0 REN *** ORR < INDIREL T > .. V 
11710 00SIJ B 3 OO O 

1 1720 00=PEEK C 0 > +256*F'EEK < 0+1 > +V 
11730 R=R OR F'EEK < 00 > 

11740 N = < fl R N D 12 8 /12 8 
11750 Z=-<R=0> 

11760 RETURN 

12100 REN t'-f* ORR ZEROF'ROEX 

12110 OOSUB3000 

12120 fl = fl OR F'EEK < 0+X > 

12130 H=CR RND 123::'/128 
12140 Z=-<fl=0> 

12150 RETURN 

12200 REN ##* RSL ZEROF'ROE.. X 
12210 GOSUB3000 
12220 N=F'EEK < 0+X > 

12230 M=M#2 
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12240 C=-<M>255> 

12250 M=M HMD 255 
12260 POKEO+X , M 
12270 Z=-<M=0> 

12280 N=<M AND 128>/128 
12290 RETURN 
12400 REM *** CLC 
12410 C=0 
12420 RETURN 

12500 REM ORR RESOLUTE. V 

12510 G 0 S UB4000 

.12520 R—R U F! REE K U U+V.:• 

12530 N=<R AND 128>/ 128 
12540 Z=-CR=0:j 
12550 RETURN 

12900 REM *** ORR ABSOLUTE, X 

12910 G 0 S U B4000 

12920 R=fl GR PEEK<00+X> 

12930 N=<R AND 128>X128 
12940 Z=-- < R=0 
12950 RETURN 

13000 REM *** RSL RESOLUTE,.X 
13010 GOSIJ04O00 
13020 M=PEEK < OO + X > 

13030 M=M#2 
13040 C=-CM >255 > 

13050 M=M AND 255 
13060 POKEOO+X.. M AND 255 
13070 Z=—CM=0> 

13080 N='.:M AND 128::'/128 

13090 RETURN 

13200 REM *** ..TSR 

13210 H H=P C+2:G0 SU E150 

13220 ST.-«S>=HI :S=<S-1> AND 255 

13230 S T X C S > = L. 0 : S = < S -1 > AND 2 5 5 

13240 G 0 S U B4000 

13250 PC=00—1 

13260 RETURN 

13300 REM -m*. AND ( I HD IRECT ,X > 

13 310 G 0 S U B 3 R 0 0 

13320 00=PEEK < 0+X > +256*PEEK < 0+X-i-1 > 
13330 R=A AND PEEK <00 
13340 N= < A AND 128::'/128 
13350 Z=■— C A=0 ;> 

13360 RETURN 

13600 REM BIT ZEROPAGE 

13610 G 0 S U B3000 
13620 M=PEEK < 0 
13630 N=<M AND 128>/128 
13640 V=<M AND 64J/64 
13650 Z=—< <A AND M> = 0;. 
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1 

3660 

RETURN 



1 

3700 

REN m* AND 

ZEI 

ROPAC 

l: 

3710 

GOSUB3000 



1 

3720 

A=fi AND PEEK 

< 0 

.1 

1 

3730 

N= C A AND 128 


128 

:l. 

3740 

Z=- <: A -- 0 J 



l 

3750 

RETURN 



l 

3800 

REN ROL 

,d b. F! UPRi. 

l 

3810 

G0SIJB3000 



1 

8820 

N=PEEKOJ> 



l 

3830 

N =41* 2+0: 



1 

3840 

C=—<M>255> 



l 

3850 

M=M AND 255 



l 

3860 

POKEO,N AND 

25 

5 

l 

3870 

Z=- < N=0> 



l 

3880 

N=<M AND 128 


128 

l 

3890 

RETURN 



l 

4000 

REN *** F'LP 



l 

4010 

S=CS+1> AND 

p:r; 

5 

:l. 

40i2£i 

P=STKCS > 



l 

401301 

GOSUB6000 



1 

4040 

RETURN 



l 

4 1 00 

REN *** AND 

#1 

NN ED: 

l 

41 10 

GOSUB3000 



l 

4120 

A=A AND 0 



l 

4130 

N=<A AND 128 


128 

1 

4140 

Z=- ■: A=0 



l 

4150 

RETURN 



l 

42010 

REN *** ROL 

A 


1 

4210 

A=A*2+C 



l 

4220 

L.:=-< A7255.:' 



1 

4230 

A=:::A AND 255 



l 

4240 

Z=- C A=0i > 



:l. 

42501 

N=CA AND 12S 

i / 

128 

l 

42601 

RETURN 



l 

4400 

REN *** BIT 

AB 

SOLU' 

l 

4410 

GOSUB4000 



l 

4420 

M=PEEKC00> 



l 

4430 

N=CN AND 128 

j y 

128 

l 

4440 

V= C N AND 64> 

.••'S 

4 

l 

4450 

2=-<<A AND M> 

= 01 1 

l 

4460 

RETURN 



l 

4500 

REN *** AND 

AB 

SOLU' 

1 

4510 

G fl S1 IE! 4 010101 



1. 

4520 

A=:A AND PEEK 

: < o 

o 

l 

4530 

Nr:: < A AND 128 

: > 

' 128 

l 

4540 

Z-- C A--::0 > 



l 

4550 

RETURN 



l 

46010 

REN *** ROL 

AB 

iSOLU' 

l 

4610 

GOSUB40001 



l 

4620 

Nr-PEEI< C OO > 
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14630 14=14*2+0 
14640 C=-CM>255> 

14650 M=M RI ID 255 
14660 POKEO0M AND 255 
14670 2=~<M=0> 

14680 H= <N FIND 128>/128 

14690 RETURN 

14800 REM ***• BMI 

14 810 G 0 S U B3000 

.1. 4820 I FN= 1THENG0SUB7000 

14830 RETURN 

14900 REM m* HMD < I HD 1RECT > , V 
14 910 G 0 S U B3000 

14920 U U ~ F’ E. E KU .1* + 2 5 6. ■¥■ F' E: E. K U 4 1 ) 4 - V 
14930 fl=A FIND F'EEK OUCO 
14940 N=Cfl FIND 128 128 

14950 Z=-CR=0> 

14960 RETURN 

15300 REM FIND ZEROF'RGE, X 

15310 GOSUB3000 

15320 fl=Fl AND F'EEK F LUN > 

15330 N--CIT FIND 1 28 ’> /128 
15340 Z--- R=0 > 

15350 RETURN 

15400 REM *** ROL ZEROPFlGE.. X 
1541ö G08U B3000 
15420 M=PEEK OJ+Ni' 

15430 M=M*2+C 
15440 C=-<M>255> 

15450 M=M AND 255 
15460 POKEO+X... M FIND 255 
15470 Z=— C M=0> 

15480 N=<M AND 128>/128 
15490 RETURN 
15600 REM *** SEC 
1561G C=1 
15620 RETURN 

15700 REM *** FIND ABSOLUTE,V 

15736 GOSUB4000 

15720 Fl=fl AND F'EEK C C 1 O 4 -V > 

15730 N=<A AND 128>7128 
15740 Z=-<A=8> 

15750 RETURN 

16100 REM m* AND ABSOLUTE, X 

16110 G 0 SIJ B4 000 

16120 fl = A AND PEEK'::O04-X::' 

16130 N=< fl AND 128 >128 
16140 Z=- <: fl=0 
16150 RETURN 

16200 REM ++:+: ROL ABSOLUTE, X 
16210 G 0 S IJ B4000 
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16220 M=PEEK <00+XI 
16230 M--M42+C 
16240 C=-<M>255> 

16250 M=M AND 255 
16266 POKEOO+XM HMD 255 
16270 Z=- C M=0 > 

16280 N=<:M AND 128>/128 
16290 RETURN 
16400 REN 444 RTI 
16410 8=c:S+l> AND 255 

16428 p=st;;cs> 

16430 G0SUB6000 
16440 S=<S+1) AND 255 
16450 PC=STX<S> 

16460 8= 03-1-1 > AND 255 
16 470 PC=256*PC+ST V. < S > 

16480 RETURN 

16500 REM 444 EOR <■. IND1 RE CT... X > 
16510 G 0 SIJ B3000 

16520 O G=P E E K (. 0+X > +2564 P E E K < 0+X +1 } 
16530 A=F N E 0 P E E K <■. 0 0 > > 

16540 N=CA AND 128>7128 
16550 2=— <A=0> 

16560 RETURN 

16900 REM 444 EOR ZEROPAGE 
16910 0O SU B3000 
16920 A=FNEO C F'EEK < 0 > ) 

16930 N=CA AND 128 > 128 
16940 Z=-<A=0> 

16950 RETURN 

17000 REM 444 LSR ZEROPAGE 
17010 00SUB3000 
17020 M- F'EEK < 0 > 

17030 C=M AND 1 
17040 M= I NT <. M/2 > 

17050 POKEOM 

170 60 Z=— M=0 j 

17070 N=(M AND 128>/128 

17080 RETURN 

17200 REM 444 F'HA 

17210 STX <S >=A : S=<S-1> AND 255 

17220 RETURN 

17300 REM 444 EOR #IMMEDIATE 
17310 GQSUB3000 
17320 A=FNEO<0 > 

17330 H=CA AND 128i/128 
17340 /=-■:: A=0 
17350 RETURN 
17400 REM 444 LSR Fl 
17410 C=A AND 1 
17420 A=I NT <A/2 > 
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17436 Z=-':‘H=0> 

17440 N=<fl RND 128 >12S 
17450 RETURN 

17600 REN 444 JMP RESOLUTE 
17610 GOSUB4000 
17620 PC=00-1 
17630 RETURN 

17700 REN 44+ EOR RESOLUTE 

17710 G OSUB40O0 

1772R fl=F H E0CREE K<00>> 

17730 N=<A FIND 128 >128 
17740 Z=-<fl=0> 

17750 RETURN 

17800 REN 444 LSR ABSOLUTE 
17810 GOSUB4000 
17820 N=F'EEK< 00 > 

17830 C=M AND 1 
17840 M= I NT <: M/2 > 

17850 F'OKEOOM 
17860 Z=-<M=0> 

17870 N=<M FIND 128>/128 
17880 RETURN 
18000 REM 444 BVC 
18010 G 0 S U B3000 
18020 IFV=0THENGOSUB7000 
18030 RETURN 

18100 REN 444 EOR ( INDI RE CT > , V 
1811O G0SUB3000 

18120 00=PEEK<0 > +2564PEEK<0+1> + V 
18130 fl=FNEO F'EEK <00 > ■> 

18140 N=Cfl FIND 128>7128 
18150 Z^-Cfl-O) 

18160 RETURN 

18500 REN 444 EOR ZEROPAGE,X 
18510 GOSUB3000 
18520 A=FNEO F'EEK 0+X > j 
18530 N= Fl AND 128::'/128 
18540 Z=-<:fl=0> 

18550 RETURN 

18600 REN 444 LSR ZEROPAGE ,N 
18610 G0SIJ B3 000 
18620 MrrPEHKCO+X> 

18630 C=M AND 1 
18640 N ■ JfTI ',M/2> 

18650 POLE0+X,N 
18660 Z=-<N=0> 

18670 N= C N FIND 128>/128 
18680 RETURN 
18800 REN 444 CLI 
18810 1=0 
18820 RETURN 
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18900 REN *** EOF? ABSOLUTE, V 
18 910 G 0 SIJ B 4 0 O 0 

18 9 k! 0 11=EHE u ' . F' E E KU U+V ) 

18930 N=<A AND 128>/128 
18940 Z=-< A=EO' 

18950 RETURN 

19300 REN *** EOR ABSOLUTE,X 

19 310 G Ü S IJ B4 000 

19320 fl=FNEÜ<PEEK<OÜ+X5) 

19330 N=<A AND 128 VI28 
19340 Z=—<A=0> 

19350 RETURN 

19400 REN *** LSR ABSOLUTE,X 
19410 G 0 S U B4000 
19420 N=PEEK<OO+X> 

19430 C=N AND 1 
19440 M=INT<M/2> 

19450 P O K E 0 0+X , M 
19460 Z=—<M=0> 

19470 N=<M AND 128>/128 

19480 RETURN 

19600 REN *** RTS 

19610 S=< S +1>AND255 s HI=STX <S) 

19620 8=<8+1JAND255 ; LO=STXCS> 

19630 P C=256* HI + L 0 

19640 REN PC=PC+1 GESCHIEHT BEI 1040 
19650 RETURN 

19700 REN *** ADC <INDIRECT,X J 

19 710 G Ü S IJ B30 00 

19720 00=PEEK < 0+X > +256*PEEK C 0+X +1 > 
19730 M=PEEKCOO> 

19740 G 0 S U B 800Ei 
1975Ü RETURN 

20.100 REN *:*'+ ADC ZEROPAGE 
2 01 10 G 0 S U Ei3000 
20120 N--PEEK < O > 

2 Ei 13 Ei G 0 SIJ B 8 Ei Ei Ei 
20140 RETURN 

20200 REN *** ROR ZEROPAGE 
2 Ei 21 Ei G 0 S U B 3 0 Ei Ei 
2 Ei 2 2 Ei N ==: P E E K OO > 

2023Ö N= <128*0 + M/2 
20240 C=-<M<>INT < M > J 
20250 N=N AND 255 

20 260 P 0 K E 0 , N 
2 Ei 2 7 Ei Z=- < N=Ei > 

20280 N=< N AND 128V128 
20290 RETURN 
20400 REN *** PHP 
20410 S=<S+1> AND255 
20420 A=STX<S > 
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20436 RETURN 

20500 REN *#* RDC #IMMEDIATE 

20510 00SIJ B3000 

20520 M=:0 

20530 G 0 SIJ B800Ci 

20540 RETURN 

2G600 RlEM * 4* RuR A - 

20610 fl=C 128*0 + fl/2 

20620 C=- C fl<> I NT C fl > 

20630 fl=fl AND 255 
20640 Z=~ < fl=0 
20650 N=Cfl AND 128>/128 
20660 RETURN 

20800 REM *** JMP INDIRECT 
2 Ci 810 G O S U B4000 

20820 PU — PEb.K UO :> +256*PEEK i. UIJ 4-1 — 1 
20830 RETURN 

20900 REM *** flDC ABSOLUTE 
28910 G 0 S U B4 0 00 
20920 M=P E E K < 0 0 > 

2 Ci930 G 0 SIJ B8000 
20940 RETURN 

21000 REM *** ROR ABSOLUTE 
21010 G 0 S U B4 0 00 
21020 M=P E E K < 0 0 > 

21030 M=< 128*0 + M/2 
21040 C=- C M < > IN T < M > > 

21050 M=M AND 255 
21060 P 0 K E 0 0 M 
21 Ci 7 0 Z - - <’ M 0 > 

21080 N=<M AND 128>/123 

2.1090 RETURN 

21200 REM *** BVS 

21210 G0 SIJ83000 

21220 IFV=1THENGOSUB7000 

21230 RETURN 

21300 R E M * * * fl D C C IN D IR E C T > ... V 
21310 G0SIJ B3008 

21320 00=PEEK<0 >+256*PEEK<0+1> + V 
21330 M--PEEK ( 00 'j 
21340 G 0 S U B 8 Ci 0 0 
21350 RETURN 

21708 REM *** fl Dü ZERO PAGEX 
217' 10 G 0 S U B 3 Ci 0 0 

21720 m=-per:k < 04 -/: > 

21730 G 0 S U B 8 0 Ci 0 
21740 RETURN 

21800 REM *** ROR ZEROPAGE,X 
2181 Ci G 0 8 U B3000 
218 2 Ci M=P E E K < 0+X > 

21830 M=>: 128*0 + M/2 
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£ 1840 C=— < MO I NT < M > 5 
21850 M=M AND 255 
21860 F'OKEO+XM 
21870 Z=—CM=0> 

21880 H=<M RND 128>/128 
21890 RETURN 
22000 REM *** SEI 
22010 1=1 
22020 RETURN 

22100 REM *** RDC RESOLUTE,V 
22110 G 0 SIJ B4000 
22120 M=F' 1 b E RLi U+V1 
22130 G 0S UB8000 
22140 RETURN 

2250Ö REM **.+ RDC RESOLUTE,X 
22510 G0 SIJ B4000 
22520 M=PEEK UU+XJ 
22530 GOSUB8000 
22540 RETURN 

22600 REM +** RÜR RESOLUTE,X 
22610 G 0 S U B4000 
22620 M=P E E K < 0 0+X > 

22630 M=< 128*0 + M/2 
22640 C=- < MO I NT < M > > 

22650 M=M RND 255 
22660 POKEOO+X,M RND 255 
70 Z=-<M=0> 

80 N= <: M RND 128 > /128 
22690 RETURN 

22900 REM *** STR < IHDIRECT ,X> 


22910 

GOSUB3000 

22920 

U U=P E E KU +X •+• 2 5 b £ P E b K i„i -i- H*+ 

22930 

P0KE00,H 

22940 

RETURN 

23150 

RETURN 

23200 

REM **# STV ZEROPRGE 

23210 

GOSUB3000 

23220 

F’OKEO , V 

23230 

RETURN 

23300 

REM :+*+ STR ZEROPRGE 

23310 

GOSUB3000 

23320 

POKEO,R 

23330 

RETURN 

23400 

REM *** STX ZEROPRGE 

23410 

GOSUB3000 

23420 

POKEO,X 

23430 

RETURN 

23600 

REM *** DEV 

23610 

V.-: o: V-1 > RND 255 

23620 

2-::— < V=0 > 

23630 

N= C V RND 123 >/128 
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23640 RETURN 
23300 REM *** TXA 
23810 A--X 
23820 Z=—<A=0> 

2383Ö N= CR AND 123>,-'128 
23840 RETURN ' 

24000 REM STV ABSOLUTE 

24010 GOSIJB4000 
24 020 P 0 K E 0 0 , V 
24030 RETURN 

24100 REM STA ABSOLUTE 

2 4110 G 0 SIJ B40 0 0 
24120 POKEOG , A 
24130 RETURN 

24200 REM *** STK ABSOLUTE 

24210 00S IJ Eil4000 

24220 P 0 K E O OX 

24230 RETURN 

24400 REM **+• BCC 

24410 G 0 S IJ B3000 

24420 I FC=0THENGOSIJB7000 

24430 RETURN 

24500 REM *** STA CI HDIRECT>,V 
24510 G O S U B 3©08 

24520 00=P E E K<0 >+256*PEEKC0+1> +V 
24530 POKEOO,A 
24540 RETURN 

24800 REM *** STV ZEROPAGE,X 
24810 G O S IJ B3080 
24820 POKEO+X,V 
24830 RETURN 

24900 REM STA ZEROPAGE,X 

24910 G 0 S IJ B3000 
24920 P0KE 0+X,A 
24330 RETURN 

25000 REM *** STX ZEROPAGE,V 

2 5 © 10 G 0 S LI B3000 

25020 P 0 K E 0 + V , X 

25030 RETURN 

25200 REM *** TVA 

25210 A=V 

25220 Z=-<A=0> 

25230 N=<A AND 1235/128 
25240 RETURN 

25300 REM *** STA ABSOLUTE,V 

25310 GOSLIB4000 

25320 P 0 K E 0 0+V , A 

25330 RETURN 

25400- REM *** TXS 

25410 S=X 

25420 RETURN 
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25700 REM *** STR RBSGLUTE,X 
25710 G O S U B4000 
25720 PGKEÜG+X , fl 
25730 RETURN 

26000 REM LDV WIMMEDIRTE 

26010 GOSUB3000 
26020 V=0 

26030 N=<V RND 128>XI28 
2604R 2=-C V=0 > 

26050 RETURN 

26100 REM LDH <. INDI REGTX > 

2 61 10 G 0 S U B3000 

26120 00= PEEK < 0+X > +256+PEEK < 0-i-X +1 > 
26130 fl—: PEEK < OO > 

26140 H=Cfl RND 12S>/128 
26150 Z=-(R=0> 

26160 RETURN 

26200 REM *** LDX #IMMEDIRTE 
26210 GOSUB3000 

26230 N= <:X RND 128J/128 

26250 RETURN 

26400 REM +++ LDV ZEROPAGE 
26410 G 0 S U B3000 
26420 V= PEEKCO> 

26430 H=<:V RND 128 > X128 
26440 Z=— CV=0> 

26450 RETURN 

26500 REM m* LDR ZEROPRGE 
26510 G0SUB3000 
26520 H = P E E K<O > 

26530 N=<R RND 128>7128 
26540 Z --= - C R=0 > 

26550 RETURN 

26600 REM *** LDX ZEROPRGE 
26610 GGSUB3000 
26620 X — F' E E K U 
26630 N=<X RND 128J/128 
26640 Z=— <X=0 > 

26650 RETURN 
26800 REM *** TRV 
26810 V=A 
26820 Z=- •' V=0 . 

26830 N=CV RND 128>XI28 
26840 RETURN 

26900 REM :+**: LDR ttlMMEDIRTE 
26910 G08U B3000 
26920 R=0 

26930 H=CR RND 128>/128 
26940 Z=- C R=0 
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6950 

RETURN 


7000 

REN *** TAN 


70 1 0 

N=A 


7020 

Z=-CK=0> 


7030 

n=cx find i 2 t 

0/128 

7040 

RETURN 


7200 

REN m* LDV 

ABSOLUTE 

7210 

GÜSUB4000 


7220 

V=PEEK C UU> 


7230 

N= C V AND 12t 

! !> / 123 

7240 

z=~ V —0 > 


7250 

RETURN 


7300 

REN ##* LDH 

ABSOLUTE 

7310 

GÜSUB4000 


7320 

l-l=PEEK>:.Ui i 


7330 

11 = CH AND 12t 

: >/128 

7340 

Zs-<Rs0> 


7350 

RETURN 


7400 

REN *** LDN 

ABSOLUTE 

7410 

GOSUB4000 


7420 

X=PEEKCÜO::. 


7430 

N=C X AND 12t 

: >/128 

7440 

Z=-(X=0) 


7450 

RETURN 


7600 

REN *** CL.V 


7616 

V--0 


7620 

RETURN 


7700 

REN LDH 

CINDIRECTX 

7710 

GOSUB3000 


7720 

U U=P E E K C U > -i-2564 P E E K C 0■+ 

7730 

RsF'EEKUU 


7740 

N= C A AND 12t 

3 128 

7750 

Z=-CA=@> 


7760 

RETURN 


8000 

REN *:+ + LDV 

Z E F! U F* R U E .* X 

30 1 0 

GOSUB3000 


3020 

V=PEEK C Q+N 


3030 

N=CV AND 1.2: 

3 128 

3040 

Z=—(V—0> 


3050 

RETURN 


S 1 00 

REN *** L. DA 

ZER Li F' R G E r 

31 10 

GOSUB3000 


S120 

A=PEEI< C Ü+N > 


81 30 

N=CA AND 12: 

3 3' 128 

8140 

Z=~CA=0> 


8150 

RETURN 


3200 

REN *** LDN 

ZERUF'RGE , r V 

8210 

GO SU E:3000 


8220 

X=PEEK<G+V> 


3230 

N= C X AND 12: 

3 /128 
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2825Ö 

RETURN 


28400 

REM 444 CLV 


28410 

V~:0 


28420 

RETURN 


28500 

REM 444 LDH 

ABSOLUTEV 

28510 

GOSU64000 


28520 

fl= PEEKOJÜ+ 

T 

28530 

N=<fl HMD 12 

3 /128 

28540 

Z=-CH=0> 


28600 

REM 444 TSX 


28610 

'•••, rr 8 


28620 

Z- - X=0 > 


28630 

N=<X HMD 12 

3 > Z128 

28640 

RETURN 


2 88 UU 

REM 444 LDV 

ABSOLUTEX 

28810 

GOSUB4000 


28820 

V= PEEKCGO+ 


28830 

N= <V RND 12 

3 > / 128 

28840 

Z-~ V=0 > 


28850 

RETURN 


289L1Ü 

REM 444 LÜH 

ABSOLUTE,X 

28910 

GGSUB4000 


28920 

A= PEELC00+ 


28930 

N— tfl AND 12 

3 >128 

28940 

z=- c: r =0 > 


28950 

RETURN 


29000 

REM 444 LDX 

ABSOLUTE,V 

29010 

GOSUB4000 


29020 

X= PEELC00+ 


29030 

H= <X RND 12 

3 > /128 

29040 

Z=— <X=0 > 


29050 

RETURN 


29200 

REM 444 CPV 

ttlMMEDIHTE 

29210 

GOSUE3000 


29220 

C = -«V-0> 

> = 0 > 

29230 

N = <-i£ V—Ü> 

AND 128 ::■/12 

29240 

z = '::v-o> 

=0 } 

29250 

RETURN 


29300 

REM 444 CMP 

I NO I REGT 

29310 

GOSUB300O 


29320 

G0=PEEK<0+X 

> +2564PEEK< 

29330 

M = PEEK<: 00 > 


29340 

GOSUBS400 


29350 

RETURN 


29600 

REM 444 CPV 

ZERU F'RüE 

29610 

GOSUB30Q0 


29620 

M=PEEKC0 > 


29630 

C = v-M 

>-0 > 

29640 

H = <Nt'-M::' 

AND 128::'/12 

29650 

Z = -C<V-M> 

5=0 > 

29660 

RETURN 
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29700 

REN **+ CNF 

ZERUPRüE 

29710 

GOSUB3000 


29720 

M=F'EEK ( 0 !:■ 


29730 

GOSUB8400 


29 740 

RETURN 


vyyyy 

REM 4+* DEC 

ZERUPflUE 

29816 

GQSUB3000 


29 3 2 Li 

N=PEEK<0> 


29330 

M=<M-1> RHD 

255 

29840 

PO KEG.. N 


29350 

z=- < m=0 > 


29360 

N=<M RHD 12 

8 >128 

29870 

RETURN 


30000 

REM f** IMV 


300 1 0 

Y=<Y+1 :> RND 

255 

30020 

Z=— V=0 > 


30O30 

N= < V RND 12: 

8 >128 

30040 

RETURN 


30 1 00 

REM *4* C MP 

#IMMEDIRTE 

30 1 1 0 

GOSU8300G 


30120 

M=0 


30130 

GOSUB8400 


30140 

RETURN 


30200 

REM f** DEN 


30210 

X=<X—1 RND 

255 

30220 

Z-— X ss 0 


30230 

N= < X RND 12: 

8 > /128 

30240 

RETURN 


30400 

REM CPY 

RESOLUTE 

30410 

GOSUB4000 


30420 

M=PEEK< 00 > 


30430 

C = —C<V—M> 

>=0 > 

30440 

N = < £ V—M > 

RND 128 >/128 

30450 

Z = -C cv-M > 

=0 

30460 

RETURN 


30500 

REM CMP 

RESOLUTE 

30510 

GOSUB4000 


30520 

M=PEEK < 00 > 


30530 

GOSUB8400 


30540 

RETURN 


3060Ü 

REM :+:+:+ DEC 

RESOLUTE 

30610 

GOSUB4000 


3062© 

M=PEEK< 00 > 


30630 

M=(M-1) RND 

255 

30640 

POKE00,M 


3 06 5 Li 

Z =-< M=0 > 


30660 

N=CM RND 12 

8 > /128 

30670 

RETURN 


30300 

REM *** BNE 


308 1 0 

GOSUB3000 


30320 

IFZ--0THENGO 

SUB70O0 
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30S30 RETURN 

30900 REM :+:** CMP C INDIRECTJ , V 
3O910 G0 SU E 3 000 

30920 UÜ=F'EEK £ 0 > +256+PEEK £ 0+1 > + V 
30930 M=P E E K C 0 0 > 

30340 G0SU B 8400 
30950 RETURN 

31300 REM CMP ZEROPflGE, X 

31310 G 0 SIJ B3000 
31320 M=PEEK£O+N > 

31330 G 0 S U B8400 
31340 RETURN 

31400 REM DEC ZEROPflGE.,N 

31410 G 0 S U B3000 
31420 M=PEEK £O+N > 

31430 M=£M-1> AND 255 
31440 PO KE O+NM 
31450 Z=-£M=0> 

31460 N=CM AND 128::'NI28 
31470 RETURN 
31600 REM CLD 

31610 D=0 
31620 RETURN 

31700 REM m* CMP ABSOLUTE, V 
31710 G 0 SIJ B4000 
31 720 M=P E E K < 0 0 + V > 

31730 G 0 S U B8400 
31740 RETURN 

32100 REM *** CMP ABSOLUTE,N 
3 2110 G0SUB4000 
32120 M ---- P E E K £ 0 0+N > 

32130 G0SUB8400 
32140 RETURN 

32200 REM -m*. OEC ABSOLUTE,N 
32210 G 0 S IJ B4000 
32220 M=PEEK £ 00+N 
32230 M=CM-1> AND 255 
32240 POKEOÜ+N,M 
32250 Z=-<M=0> 

32260 N = £ M HNO 128 /128 
32270 RETURN 

32400 REM CRN # IMMEDIATE 

32410 GOSUB3000 
32420 C = -<0£—O>>=0> 

32430 H = <<X-0> AND 128J/12S 
32440 Z = — i < X - 0 '} = 0 
32450 RETURN 

3250O REM *** SBC CINDIRECT,X> 
32510 G 0 S IJ B3000 

32520 00=P E E K <. 0+X > +256He P E E K C 0+X +1 
32530 M=PEEK<00 > 
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32546 G0SUB82ü8 
32550 RETURN 

32800 REN 444 CRN ZEROPRGE 
32810 G 0 S U B3000 
32820 M=PEEK C. 0 

3284© N = << X-M> AND 128 >X128 
32850 Z = - < < X - M > = 0 > 

32860 RETURN 

32900 REN 444 SBC ZEROPRGE 
32910 G 0 S LI E.'3000 
32920 M-PEEK< O > 

32930 G 0 SIJ E.' 8 2 O 0 
32940 RETURN 

33000 REN 444 INC ZEROPRGE 
33010 G O S IJ E:300@ 

3302O N =.- P E E K < 0 > 

3303O N = < N +1 > R H D 2 5 5 
3304O POKEOr M 
3305O Z=- C N=0 > 

3306O H=<M RND 128>/128 
33070 RETURN 
3320O REN 444 INX 
33210 X=<X+1) RH Ei 255 
33220 Z=— X=O > 

33230 N= CX RND 128J/128 
33240 RETURN 

3330O REN 444 SBC #I NNED IRTE 

33310 G 0 S IJ B 3 0 Ei 0 

33320 M=0 

33 33O G O S LJ B8200 

33340 RETURN 

334O0 REN 444 NOP 

33410 RETURN 

336O0 REN 444 CPX ABSOLUTE 
3361 Ei G 0 S U B4000 
33620 N=P E E K L 0 0 
3363Ei C = — < < X—M > >=0 ':> 

33640 N = <<X-M> flHD 128JZI28 
33650 Z = - i. C X—N > = O > 

33660 RETURN 

3370O REN m* SBC ABSOLUTE 
3371 0 G 0 S I.J B400Ei 
3372Ei M=P E E K < 0 0 > 

3373O G 0 8 U B 8 2 Ei Ei 
33740 RETURN 

33800 REN 444 INC ABSOLUTE 
3381 Ei G 0 S U B 4 Ei Ei Ei 
33820 N = PEEK , ::00> 

3383O M=<M+1> RHO 255 
33840 POKEOO , M 
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33850 Z=-<M=0> 

33860 N=CM AND 128::'/128 

33870 RETURN 

34000 REM :+:** BEQ 

34010 GOSUB3000 

34020 1FZ=1THENGOSUB7000 

34030 RETURN 

34100 REM *** SBC <IMD IRECT>,V 
34110 G08U B3000 

34120 QO=PEEK<0 > +256*PEEK< 0+1>+V 
34130 M—F'EEK < 00 > 

34140 G0 8 U B8200 
34150 RETURN 

34500 REM m*. SBC ZEROPflGE, X 
3 4510 G08UB30@0 
34520 M=PEEK < Q+X '> 

34530 GOSUB8200 
34540 RETURN 

34600 REM INC ZEROPflGE,X 

34610 G08UB3000 
34620 M=PEEK'OH+/::■ 

34630 M-~M+1 > AND 255 
34640 P0KE 0+X,M 
34650 Z=-- *:! M=0 > 

34660 IE-, < M AND 128 V128 
34670 RETURN 
34800 REM +:+:+: SED 
34810 D=1 
34820 RETURN 

34900 REM *** SBC ABSOLUTE,V 
34910 G0SUB4000 
34920 H=F : ' E E K < 0 0+V > 

34930 GOSUB8200 
34940 RETURN 

35300 REM m* SBC ABSOLUTE.// 

3540O REM *** INC ABSOLUTE// 

35410 G O SIJ E:4000 
35420 M=PE EK C00+X> 

35430 M=<M+1> AND 255 
35440 P0KE 00+X,M 
35450 Z=— <M=0 > 

35460 H=<M AND 128::'/128 
35470 RETURN 
35510 G 0 S IJ B4000 
35520 M=PEEKC00+X> 

35530 G0SIJB8200 
35540 RETURN 

49000 F 0 R H H=34768T 034 783 : READH : POKEHH , l-l s NE KT : RETURN 
50000 D fl T A 924 08.888 ... 8... 8., 8 ,■ 8,8... 8., 8,8,0... @ r 0 
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Das Programm ist wie folgt aufgebaut: 

Die Zeilen 10 bis 90 geben die Kopfzeile des Programms aus 
und beinhalten die Eingaben. Dort werden auch einige Fel¬ 
der und Funktionen definiert, die zu späteren Berechnungen 
notwendig sind. In Zeile 70 befindet sich der Aufruf eines 
Unterprogrammes ab Zeile 49000, welches ein Demonstra¬ 
tionsprogramm in die Speicherzellen ab 34768=$87D0 'po- 
ked'. In den Zeilen 100 bis 900 sind einige Unterprogramme 
enthalten, die der Umrechnung von Hexadezimalzahlen die¬ 
nen, die hier nicht weiter erläutert werden (vgl. Kapitel 
5.2 in Band 1). Ab Zeile 1000 bis 1060 befindet sich die 
Schleife, die für jeden Befehl durchlaufen wird. Dabei 
wird zunächst der aktuelle Stand der Prozessorregister 
angezeigt (Unterprogrammaufruf 2000), dann die Variable OP 
mit dem Wert der momentan über den Programmzähler adres¬ 
sierten Speicherzelle besetzt und anschließend das Unter¬ 
programm ab Zeile 1100 aufgerufen, welches einen Befehl 
auswertet. Schließlich wird noch der Programmzähler um 
eins erhöht und wieder zur Zeile 1000 gesprungen, wenn 
kein Abbruchkriterium erfüllt ist. 

Das Unterprogramm ab Zeile 1100 ist ein Sprungverteiler 
auf die einzelnen Programmstücke, jeweils eine Sprung für 
jeden Befehl. Ein unzulässiger Befehl bedeutet immer einen 
Sprung auf das Unterprogramm ab Zeile 1400, welches mit 
einer entsprechenden Meldung am Bildschirm endet. 

Das Unterprogramm ab Zeile 2000 dient zur Anzeige aller 
Prozessorregister. Das Statusregister wird dabei binär 
dargestellt, wobei ein Zeichen durch die Funktion CHR$ 
(48+N) gebildet wird, was hier einer "0" oder "1“ ent¬ 
spricht, je nachdem, ob N gleich 0 oder 1 ist. Die anderen 
Prozessorregister werden mit Hilfe des Unterprogrammes ab 
Zeile 200 in hexadezimale Zahlen umgewandelt. Diese werden 
gesammelt in Zeile 2090 in der zweiten Bildschirmzeile 
a usg eben. 

Die Zeilen 3000 bis 9000 enthalten Unterprogramme, die für 
die Ausführung von Befehlen notwendig sind, bzw. allgemei¬ 
ne Unterprogramme, die die Programmierung der anderen ver- 
einfache n. 

Ab Zeile 3000 wird ein 1-Byte-Operand geholt, was dadurch 
geschieht, daß der Programmzähler um 1 erhöht wird und der 
Variablen 0 der Wert der angesprochenen Speicherzelle zu¬ 
gewiesen wird. 0 soll hier die Abkürzung für 1 Byte-Ope¬ 
rand sein. Im Unterprogramm ab 4000 wird entsprechend ein 
2-Byte-0perand geholt, der in der Variablen 00 abgelegt 
wird. 
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Die Unterprogramme ab den Zeilen 5000 bis 6000 fassen die 
einzelnen Statusflags zur Variablen P zusammen bzw. zer¬ 
legen diese. 

Ab Zeile 7000 steht die Ausführung eines relativen Sprun¬ 
ges. 

Da die Addition ein komplizierterer Prozess ist, da insbe¬ 
sondere Binär- oder Dezimalarithmetik verwendet werden 
können, wird diese in dem Unterprogramm ab Zeile 8000 be¬ 
handelt. Analog wird ab 8200 die Subtraktion behandelt. In 
diesen Unterprogrammen wird zunächst erfragt, ob das Dezi¬ 
malflag gesetzt ist. Wenn nicht, ergibt sich der Neue Wert 
des Akkumulators einfach aus: 

Alter Wert + Speicherwert + Carry-Flag. 

Das neue Carry-Flag wird dann gesetzt, wenn der Wert des 
Akkumulators größer als 255 ist. Dann wird der Akkumulator 
noch auf ein Wert bis 255 zurückgesetzt (weil die Variable 
A, anders als der Akkumulator, Zahlen größer als 255 auf¬ 
nehmen kann) und das Negativ- und das Zero-Flag, also hier 
die Variablen N und Z entsprechend besetzt. Wenn jedoch 
das Dezimal-Flag gesetzt ist, so werden zuerst die nieder- 
wertigen 4 Bit des Akkumulators mit den niederwertigen 4 
Bit des Speichers verknüpft und anschließend die höher¬ 
wertigen 4 Bit. Ein Übertrag kommt immer dann zustande, 
wenn das Ergebnis größer als 9 ist. 

Ab Zeile 10000 stehen die Unterprogrammstücke, die jeweils 
einem Maschinenbefehl entsprechen. Die Zeilennummern der 
Unterprogramme sind dabei wie folgt aufgebaut: 

Zeilennummer Befehl = 10000 + 100 x Wert Maschinencode. 

Da wir an dieser Stelle davon ausgehen, daß Basic hinläng¬ 
lich bekannt ist, werden für die Unterprogramme zu den 
einzelnen Befehlen keine Erklärungen mehr gegeben. Viel¬ 
mehr sollen gerade die Unterprogramme in Basic dazu die¬ 
nen, Ihnen die Arbeitsweise der Befehle zu verdeutlichen. 
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! 

! DEM06510 


10 - 50000 


| 

! 

i 


! Variablen: 


Name 

! 

Typ ! 

Bereich 

1 

Bedeutung 

A 

! 

G ! 

0...255 

j 

Akkumulator 

B 

! 

G ! 

0,1 

! 

Break-Flag 

C 

! 

G ! 

0,1 

! 

Ca rry-Flag 

D 

! 

G ! 

0,1 

! 

Dezimal-Flag 

H 

| 

H ! 

Integer 

i 

Hilfsvariable 

H$ 

I 

H ! 

2 Zeichen 

! 

H i 1f svaria ble 

H0$ 

! 

H ! 

31 Zeichen 

! 

Eingabezeile 

HE$ 

j 

G ! 

' 0123456789ABCDEF'! 

Hexadezimal Ziffern 

HH 

! 

H ! 

0...65535 

! 

Hilfsvariable 

HH$ 

! 

H 1 

4 Zeichen 

j 

Hilfsvariable 

HI 

! 

H/R ! 

0...255 

i 

Höherwertiges Byte 

HP 

1 

H ! 

0. . . 10 

1 

Anzahl Abbruchpunkte 

I 

! 

G ! 

0,1 

! 

Interrupt-Disable-Flag 

3 

j 

H ! 

Integer 

! 

Lauf variable 

LO 

I 

H/R ! 

0. . .255 

| 

Niederwertiges Byte 

M 

! 

H ! 

0. . . 65535 

! 

Speicheradresse 

N 

| 

G ! 

0,1 


Negativ-Flag 

0 

! 

H ! 

0. . .255 


Operand (1 Byte) 

00 

! 

H ! 

0. . .65535 


Operand (2 Byte) 

OP 

! 

H ! 

0...255 


Befehlscode 

p 

! 

G ! 

0...255 


Proze ssors tat us 

P5 

i 

G I 

0,1 


Bit 5 von P 

PC 

! 

G ! 

0...65535 


Programmzähler 

S 

! 

G ! 

0. . .255 

! 

Stape1zeiger 

V 

! 

G ! 

0,1 

! 

Overflow-Flag 

X 

I 

G ! 

0. ..255 


X-Register 

Y 

! 

G ! 

0...255 


Y-Register 

z 

! 

G ! 

0,1 


Zero-Flag 

Felder 

( Array 

s) : 



Name 

j 

Dirnen. 

! Typ ! Bereich 

! Bedeutung 

HP 

! 

10 

! G ! 0. . 

.65535 

! Abbruchstellen 

ST% 

! 

255 

! G ! 0. . 

.255 

! Kellerspeicher 
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! UnterprograMaufrufe : (nur im Bereich 10 - 8440) 


i n ! 

nach ! 

Zweck 



! 

22 ! 

2000 ! 

Anzeige Register 



! 

26 ! 

400 ! 

Wert von 4-stelliger Hexzahl 

bestimmen 

! 

44 ! 

350 ! 

Wert von 2-stelliger Hexzahl 

bestimmen 

I 

46 ! 

350 ! 

Wert von 2-stelliger Hexzahl 

bestimmen 

j 

48 ! 

350 ! 

Wert von 2-stelliger Hexzahl 

be stimmen 

! 

50 ! 

350 ! 

Wert von 2-stelliger Hexzahl 

bestimmen 

! 

62 ' ! 

400 ! 

Wert von 4-stelliger Hexzahl 

bestimmen 

! 

70 ! 

49000 ! 

Beispie1programm ' 

poken' 


i 

270 ! 

200 ! 

2-stellige Hexzahl 

bilden 


i 

300 ! 

200 ! 

2-stellige Hexzahl 

bi Iden 


! 

420 ! 

350 ! 

Wert von 2-stelliger Hexzahl 

be stimme n 

! 

450 ! 

350 ! 

Wert von 2-stelliger Hexzahl 

bestimmen 

j 

1010 ! 

2000 ! 

Anzeige Register 



! 

1045 1 

200 ! 

2-stellige Hexzahl 

biIden 


! 

1050 ! 

1100 ! 

Befehl ausführen 




2010 ! 

250 ! 

4-stellige Hexzahl 

bi Iden 



2 040 ! 

200 ! 

2-stellige Hexzahl 

bilden 



2050 f 

200 ! 

2-stellige Hexzahl 

biIden 



2 060 ! 

200 ! 

2-stellige Hexzahl 

bilden 



2070 ! 

200 ! 

2-stellige Hexzahl 

biIden 



Verzweigungen 

nach außen : 



! 

1 

i n Ze 

! nach 

! Bedingung 

! Bemerkung 


1090 

! STOP 

! PC = HP(J) 

! Abbruchpunkt err. 

! 

1370 

! STOP 

! OP größer als 255 

! 


! 

1410 

! STOP 

! 

! illegaler Befehl 

1 


1.9 Zusätzliche und illegale Befehle 


Wie Sie aus Kapitel 1.7 ersehen konnten, sind nicht alle 
der 256 theoretisch möglichen Operations-Codes mit tat¬ 
sächlichen Funktionen belegt. Sie können jedoch dem Pro¬ 
zessor einen solchen Operations-Code anbieten. Die Reak¬ 
tion des Prozessors auf einen solchen Befehl ist durch 
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seine interne Struktur definiert. Bei einigen illegalen 
Befehlen, hört der Prozessor auf zu arbeiten und kann dann 
nur noch mit einem Reset-Impuls reaktiviert werden. Dann 
ist natürlich der momentane Programmzähler verloren. 
Einige Befehle führen jedoch nicht zum Absturz des Rech¬ 
ners, sondern führen exotische Funktionen aus, die eine 
Kombination von offiziellen Operationen darstellen. So 
z.B. die folgenden drei Befehle: 

A7 aa Der Akkumulator und das X-Register werden mit 

dem Inhalt der Zero-Page-Adresse aa geladen. 

87 aa Das Ergebnis einer UND-Funktion zwischen Akku 

und X-Register wird in die Zero-Page-Adresse aa 
gespeichert. 

97 aa Das Ergebnis einer UND-Funktion zwischen Akku 

und X-Register wird in die Zero-Page-Adresse 
aa+Y gespeichert. 

Es gibt sicher weitere inoffizielle Befehle, das Austesten 
anderer Möglichkeiten wollen wir derr) Leser überlassen. Sie 
können sich kleine Testprogramme schreiben und mit etwas 
Mühe und Geduld sich die Funktion sämtlicher inoffiziellen 
Befehle, die nicht zum Absturz des Prozessors führen, her¬ 
ausfinden. 

Es ist jedoch zu beachten, daß die Prozessoren mittler¬ 
weile geändert worden sein könnten. Da es sich eben um 
inoffizielle Befehle handelt, muß die Herstellerfirma 
nicht 'darauf acht geben, ob deren Funktion unverändert 
bleibt. Deshalb ist es auch ratsam, auf Ihrem eigenen 
Rechner die oben angebenenen Befehle zuerst auszuprobie¬ 
ren, bevor Sie diese einsetzen. 

Eine weitere Besonderheit sei noch angemerkt: folgt auf 
einen indirekten Sprung (Operations-Code $6C) das Byte 
$FF, so wird der Sprung falsch ausgeführt. Wenn der Befehl 
z.B. heißen sollte 6C FF CO, so wird die Sprungadresse 
nicht aus den Zellen $C0FF und $C100, sondern aus $C0FF 
und $C000 geholt. Dies ist ein Fehler im Prozessor, der im 
Moment noch existiert. Es kann sein, daß vom Prozessor ein 
neuer Typ herausgebracht wird, der diesen Fehler nicht 
mehr aufweist. 
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2. Zusammenarbeit von Maschinenprogrammen mit Basic 


In diesem Kapitel soll der Zusammenhang zwischen Maschi¬ 
nenprogrammen und Basic sowie dem Betriebssystem darge¬ 
stellt werden. Dazu gehen wir zunächst auf die Speicher¬ 
einteilung des Commodore 64 ein. Dann werden die Zahldar¬ 
stellungen (Integer und Fließkomma) behandelt, sowie die 
Variablenhandhabung innerhalb von Basic-Programmen. 

Der nächste Abschnitt ist den ROM-Routinen (Basic und Ker- 
nal) Vorbehalten. Daran schließt sich ein Kapitel an, daß 
die Möglichkeiten des Ladens von Maschinenprogrammen auf¬ 
zeigt (LOAD-Befehl mit Merker). 

Die nächsten beiden Kapitel widmen sich dem Einbinden von 
Maschinenprogrammen in Basic, und den Abschluß bildet eine 
Übersicht über die Zero-Page. 


2.1 Speicheraufteilung im Commodore 64 



□ 

□ 


I/O 

ROM 

RAM 


oooo 
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Der Commodore 64 besitzt 64 KByte Schreib-/Lesespeicher 
(RAM), außerdem kann er 20 KByte Nur-Lesespeicher (ROM) 
adressieren, die das Basic, Betriebssystem und den norma¬ 
len Zeichensatz enthalten. Schließlich kann er noch einen 
4-KByte-Block adressieren, welcher die Ein-/Ausgabe-Bau- 
steine enthält. 

Der 6510 kann jedoch nur 64 KByte adressieren, da er nur 
16 Adressleitungen besitzt. Deshalb werden seine Ausgabe¬ 
leitungen P0-P2 benützt, um zwischen ROM, RAM und I/O Be¬ 
reichen umzuschalten, die Ausgabeanschlüsse P3-P5 werden 
für den Kassettenrecorder benützt. 


Hier die Tabelle mit den Standardbelegungen der ein Aus¬ 
gabeleitungen des 6510: 


Name 

Bit 

Richtung 

Beschreibung 

LORAM 

0 

Ausgabe 

Schalter für Basic-RAM/ROM 
($AOOO - $BFFF ) 

HIRAM 

1 

Au sgabe 

Schalter für KERNAL-RAM/ROM 
($E000 - $FFFF) 

CHAREN 

2 

Au sga be 

Schalter für I/O-ROM 
($DOOO - $DFFF) 


3 

Ausgabe 

Sehreibleitung für Kasset- 
tenr ekor der 


4 

E i nga be 

Zeigt gedrückte Taste an 

Kassettenrekorder an 


5 

Au sga be 

Motorsteuerung Kassette 


Platz für Tabelle 


LORAM 

Dieser Anschluß dient zum Ausblenden des 8 KByte Basic- 
ROMS. Liegt dieser Anschluß auf so werden bei einer 
Lese-Operation die Werte aus dem ROM gelesen, bei einer 
Schreib-Operation die Werte im RAM abgelegt. Liegt die 
Leitung auf '0', so werden sowohl Schreib-und Lese-Ope¬ 
rationen mit dem RAM durchgeführt. 


H1RAM 

Diese Leitung blendet das Betriebssystem-ROM (KERNAL) ein 
und aus. Liegt diese Leitung auf ’l’, so wirken die Lese- 
Operationen auf das ROM, die Schreib-Operationen auf das 
RAM. Liegt die Leitung auf '0', so erscheint nur das RAM 
für beide Transferrichtungen. 
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CHAREN 

Diese Leitung wird benützt, um den Zeichengenerator aus- 
lesen zu können. Dieser befindet sich im Adressbereich von 
$D000 bis $DFFF. Im gleichen Adressbereich befinden sich 
auch die Ein-/Ausgabe-Einheiten. Ist die Leitung CHAREN 
gleich ‘1‘, so erscheinen folgende I/O-Bausteine: 


$D000 / 53248 
$D3FF 

$D400 / 54272 
$D7FF 

$D800 / 55296 
$DBFF 

$DCOO / 56320 
$DD00 / 56576 
$DE00 / 56832 
$DF00 / 57088 


Ist die Leitung CHAREN gleich '0', so werden bei einer 
Lese-Operation die Daten aus den Zeichengenerator-ROM 
gelesen, bei einer Sehreib-Operation die Daten im RAM 
abgelegt. Diese im RAM abgelegten Daten können jedoch 
nicht wieder gelesen werden, deshalb ist dieser RAM-Be- 
reich für den Anwender nutzlos. 


VIC 


SID 


(Farb-RAM) 


CIA 1 


CIA 2 

I/O Erw. 0 
I/O Erw. 1 


Das Umschalten dieser Leitung darf nur in einem Maschinen¬ 
programm erfolgen, welches Unterbrechungen verhindert, so¬ 
lange die Leitung auf '0' gehalten wird. 
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2.2 Zahldarstellung 


Im Betriebssystem und in den anderen Programmen kommen die 
verschiedensten Möglichkeiten vor, verschiedenartige Zah¬ 
len darzustellen. Der Prozessor kann natürlich immer nur 
mit einzelnen Bytes rechnen, also Kombinationen von 8 mal 
’0‘ und '1'. Es kommt daher darauf an, wie wir eine gege¬ 
bene Kombination interpretieren, um sie einem Zahlwert zu¬ 
zuordnen. 

Wir wollen uns im folgenden die für Mikrocomputer ge¬ 
bräuchlichsten Darstellungsarten ansehen. 


8-Bit vorzeichenlose Darstellung 

Hier haben die 8 Bit eine Speicherzelle folgende Wertig- 
keite n: 

Bit 7 Bit 6 Bit 5 Bit 4 Bit 3 Bit 2 Bit 1 Bit 0 

128 64 32 16 8 4 2 1 


Mit dieser Darstellung können wir Werte von 0 bis 255 dar¬ 
stellen. Dies wird z.B. angewendet bei der Interpretation 
von einfachen Zählern, so z.B. dem X-Register. 


8-Bit vorzeichenbehaftete Darstellung 

Hier werden folgende Wertigkeiten benützt: 


Bit 7 Bit 6 Bit 5 Bit 4 


Bit 3 Bit 2 


Bit 1 Bit 0 


-128 64 32 16 


8 4 


2 1 


Der darstellbare Zahlenbereich liegt dann zwischen -128 
und +127. Diese Interpretation wird z.B. bei der Ausfüh¬ 
rung von relativen Sprüngen (siehe auch Kapitel 1.4) ver¬ 
wendet. Außerdem erklärt diese Darstellung den Sinn des 
Negativ-Flags, das dann gesetzt wird, wenn ein Ergebnis 
das Bit 7 gesetzt hat, also es nach dieser Darstellung 
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negativ ist. Außerdem kann man das Overflow-Flag erklären, 
das dann gesetzt wird, wenn bei einer Addition oder Sub¬ 
traktion der zulässige Bereich -128 bis +127 überschritten 
wird. 


16-Bit vorzeichenlose Darstellung 

Diese Darstellung ähnelt der 8-Bit vorzeichenlosen Dar¬ 
stellung, jedoch werden hier 2 aufeinanderfolgende Bytes 
verwendet. Bit 0 bis 7 haben die gleichen Wertigkeiten wie 
bei der 8-Bit vorzeichenlosen Darstellung, Bit 8 bis 15 
die folgenden: 

Bit 15 Bit 14 Bit 13 Bit 12 Bit 11 Bit 10 Bit 9 Bit 8 
32768 16384 8192 4096 2048 1024 512 256 


Der darstellbare Bereich reicht von 0 bis 65535. Damit 
werden im allgemeinen Adressdaten gespeichert. Natürlich 
ist diese Darstellung auch für ganze Zahlen geeignet. 


16-Bit vorzeichenbehaftete Darstellung 

Die Bits 0 bis 7 haben die gleichen Wertigkeiten wie bei 
8-Bit vorzeichenloser (!) Darstellung. Die Wertigkeiten 
der Bits 8 bis 15 sind die folgenden: 

Bit 15 Bit 14 Bit 13 Bit 12 Bit 11 Bit 10 Bit 9 Bit 8 
-32768 16384 8192 4096 2048 1024 512 256 


Der darstellbare Bereich liegt zwischen -32768 und +32767. 
Mit dieser Darstellung werden im Rechner sogenannte INTE- 
GER-Zahlen dargestellt werden, wie z.B. die %-Variablen. 


FließkoraBadarstellung 

Wir wollen hier die Art der Fließkommadarstellung bespre¬ 
chen, wie sie beim Commodore für die Speicherung von ge¬ 
wöhnlichen Variablen verwendet wird. Damit kann ein Be¬ 
reich von etwa -1 E38 bis +1 E38 abgedeckt werden. Diese 
Darstellung benötigt 5 Byte. Das erste Byte beinhaltet den 
sogenannten Exponenten, die restlichen vier die sogenannte 
Mantisse. Das Vorzeichen der Mantisse ist im Höchstwerti- 
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gen Bit dieser vier Bytes gespeichert. Dabei bedeutet '1' 
negativ und '0' positiv. 

Der Exponent ist um $80 erhöht abgespeichert. Der um $80 
verminderte Wert gibt dann an, wie oft man die Mantisse 
mit 2 multplizieren muß, damit man den Zahlwert erhält. 
Ein Exponent $7F bedeutet, das man die Mantisse durch 2 
dividieren muß. Die Zahl Null wird durch ein Exponenten 
$00 dargestellt. 

Die Wertigkeiten der 32 Bit in der Mantisse sind wie folgt 
zu verstehen: 

(Bit 31) Bit 30 Bit 29 Bit 28 . Bit 0 

0.5 0.25 0.125 0.0625 . 2 hoch minus 32 


Die Fließkammadarstellung mit Mantisse und Exponent ist 
jedoch so noch nicht eindeutig. Man kann z.B. die Dezi¬ 
malzahl 0.25 wie folgt darstellen: 

$ 80 40 00 00 00 

oder 

$ 82 10 00 00 00 

oder 

$ 83 08 00 00 00 


bzw. die ersten beiden Byte binär 


oder 

oder 


1000 0000 
1000 0010 
1000 0011 


0100 0000 
0001 0000 
0000 1000 


Im Speicher werden F1ießkammazah1en immer normiert abge¬ 
speichert, d.h. so, daß das höchstwertigste Bit der Man¬ 
tisse, welches die Wertigkeit 0.5 besitzt, stets auf ’1‘ 
gesetzt ist. Weil aber dieses Bit immer gesetzt sein müss¬ 
te, hat es kein Informationswert und wird deshalb nicht 
abgespeichert, sondern an dessen Stelle wird das Vorzei¬ 
chen gespeichert. Im folgenden sehen Sie eine kleine 
Tabelle von Fließkommazahlen und deren hexadezimaler Dar¬ 
stellung. 


Speicher-Format Dezimal 

84 80 00 00 00 8 
83 CO 00 00 00 - 6 
82 80 00 00 00 - 2 
81 CO 00 00 00 - 1,5 





Zusammenarbeit von Maschinenprogrammen mit Basic 


103 


Spe icher- 

Format 

Dezimal 

81 80 

00 

00 

00 

1 

80 80 

00 

00 

00 

5 

7F . 80 

00 

00 

00 

- .25 

00 00 

00 

00 

00 

0 

7F 00 

00 

00 

00 

.25 

80 00 

00 

00 

00 

.5 

81 00 

00 

00 

00 

1 

81 40 

00 

00 

00 

1.5 

82 00 

00 

00 

00 

2 

82 40 

00 

00 

00 

3 

83 00 

00 

00 

00 

4 

84 00 

00 

00 

00 

8 


6-Byte-Fließkomaazahlen ( Register-Fornat ) 

Im Fließkomma-Akkumulator, einem Speicherbereich in der 
Zero-Page, werden die Fließkommazahlen mit 6 Byte gespei¬ 
chert. Dabei gleicht das Format im wesentlichen den Fließ¬ 
kommazahlen im oben beschriebenen Speicherformat. Das Vor¬ 
zeichen ist im 6. Byte abgespeichert. Das Höchstwertigste 
Bit des 2. Byte, also das erste Bit der Mantisse, ist im¬ 
mer gesetzt (Wert 0.5). Die Zahl 1 würde wie folgt ausse- 
ßen: $ 81 80 00 00 00 00. Auf das Register-Format soll 
hier nicht näher eingegangen werden, weil nur der Rechner 
diese Darstellung benötigt. 


2.3 Variablen in Commodore-Basic 


Es existieren drei Speicherbereiche, die für die Speicher¬ 
ung der Variablen verwendet werden. Der erste enthält die 
einfachen Variablen, der zweite die Felder und im dritten 
werden die Inhalte von String-Variablen (also die Zeichen¬ 
reihen selbst) gespeichert. Zur Abgrenzung dieser drei Be¬ 
reiche dienen die folgenden Zeiger in der Zero-Page: 


Bezeichnung 

Hex 

• 

Dezimal 

STARTVAR 

2D, 

2E 

45, 

46 

STARTARR 

2F, 

30 

47, 

48 

ENDARR 

31, 

32 

49, 

50 

STARTSTR 

33, 

34 

51, 

52 

ENDRAM 

37, 

38 

55, 

56 


Bedeutung 

Start der Variablen 
Start der Arrays 
Ende der Arrays 
Beginn der Zeichenreihen 
Basic-RAM Ende 
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Zwischen STARTVAR und STARTARR sind die einfachen Varia¬ 
blen gespeichert, die Felder zwischen STARTARR und ENDARR. 
Die Zeichenreihen werden im Bereich zwischen STARTSTR und 
ENDRAM abgelegt. 

Datenfornate 

Die Fließkommazahlen werden durch 5 Byte dargestellt, 
Integerzahlen durch 2 Byte (vgl. dazu Kapitel 2.2). 

Stringvariable werden als 3 Byte abgespeichert. Das erste 
enthält die Länge der Strings (0-255), die nächsten beiden 
enthalten einen Zeiger (Adresse) auf den Beginn der Zei¬ 
chenreihe. Die Zeichenreihe selbst steht dann im Bereich 
zwischen STARTSTR und ENDRAM oder im Basic-Programmtext 
(bei Zuweisung einer String-Konstanten oder Verwendung von 
DATA und READ). 


Name und Typ von Variablen 

Der Name und der Typ einer Variablen werden grundsätzlich 
in 2 Byte dargestellt. Diese 2 Byte sind die ASCII-Codes 
der beiden Buchstaben des Variablennamens. Dabei gibt es 
jedoch folgende Besonderheiten: Ein nicht vorhandenes Zei¬ 
chen (bei einem Variablennamen, der nur aus einem Buchsta¬ 
ben besteht) wird durch den Code 0 dargestellt. Bei 
Stringvariablen wird das höchstwertigste Bit des zweiten 
Bytes gesetzt. Bei Integervariablen wird bei beiden Bytes 
das höchstwertigste Bit gesetzt. 


Einfache Variable 

Einfache Variable werden nacheinander in 7-Byte-Feldern 
abgelegt. Dort stehen jeweils 2 Byte für den Variablen¬ 
namen und dann 5 Byte für den Variableninhalt. Bei Inte¬ 
ger- und String-Variablen werden die 5 Byte, die für die 
Daten reserviert sind natürlich nicht voll ausgenützt, sie 
werden dann mit Nullen belegt. 


Felder (Arrays) 

Ein Feld besteht jeweils aus einem Feldkopf und anschlies¬ 
send den einzelnen indizierten Variablen. 

Der Feldkopf ist wie folgt aufgebaut: Die ersten beiden 
Bytes enthalten den Namen und den Typ des Feldes (s.o.). 
Die nächsten beiden Bytes enthalten die gesamte Länge 
dieses Feldes; damit kann man die Startadresse des näch- 
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sten Feldes berechnen. 

Byte 5 enthält die Anzahl der Dimensionen des Feldes. Im 
allgemeinen wird diese Zahl zwischen 1 und 5 liegen. 

Danach folgen je 2 Byte, die die Anzahl der Elemente pro 
Dimension angeben. Wenn ein Feld nur eine Dimension hat 
ist der Kopf genau 7 Byte lang. 


2.4 ROM-Routinen des Commodore 64 


Sie können sich die Programmierung von eigenen Maschinen¬ 
routinen sehr erleichtern, wenn Sie bereits im ROM einge¬ 
baute Routinen mitverwenden. Dabei gibt es im wesentlichen 
zwei verschiedene Arten von eingebauten ROM-Routinen. Als 
erstes wären die Basic-Routinen zu nennen, das sind die 
Routinen zur Variablenverwaltung, F1ießkomma-Arithmetik, 
zur Behandlung von Basic-Fehlermeldungen und ähnlichem. 
Diese Routinen werden Sie also vor allem dann verwenden, 
wenn Sie eng mit Basic Zusammenarbeiten wollen und insbe¬ 
sondere auch Parameter von oder an Maschinenprogramme 
durch Basic-Variablen übergeben wollen. 

Die andere Gruppe besteht aus den Betriebssystem-Routinen, 
hier den sogenannten KERNAL-Routinen. Diese Routinen be¬ 
schäftigen sich mit der Ein/Ausgabe, mit der Bildschirm¬ 
verwaltung, dem seriellen Bus und ähnlichem. Die Parame¬ 
terübergabe an diese Routinen ist wesentlich besser nor¬ 
miert, als bei den Basic-Routinen. Das ist durchaus ver¬ 
ständlich, weil auf dieses Betriebssystem auch dann zuge¬ 
griffen werden kann und muß, wenn der Basic-Interpreter 
ausgeschaltet ist und eine andere Programmiersprache gela¬ 
den ist oder Sie selbst sich vollkommen von Basic lösen 
und nur die Ein- und Ausgabe mit eingebauten Routinen 
durchführen wollen. 


Basic-Routinen 

Im folgenden wollen wir eine Tabelle der ca. 150 wichtig¬ 
sten Basic-Routinen abbilden, aus der Sie die Aufrufadres¬ 
se, die Parameter sowie deren Bedeutung entnehmen können. 
Weiterhin wird ein gebräuchlicher Name mitangegeben. Bei¬ 
spiele dazu finden Sie im Kapitel 4, wo zahlreiche nütz¬ 
liche Routinen beschrieben sind. 



106 
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KERNAL-Routinen 

Die Betriebssystem-Routinen des KERNAL werden über eine 
standardisierte Sprungtabelle erreicht. Dort sind die 
Adressen von 39 Betriebssystem-Routinen festgelegt. Die 
Verwendung einer Sprungtabelle hat den Vorteil, daß Ma- 
schi nenprog ramme , die nur diese Sprungtabelle verwenden, 
nicht geändert werden brauchen, wenn Sie auf einen anderen 
Commodore-Rechner oder auf eine neue Version des Betriebs¬ 
systems umgeschrieben werden sollen. Der Aufbau eines Be¬ 
triebssystemaufrufs ist grundsätzlich folgender: 

- Parameter bereitstellen 

- Routine aufrufen 

- Fehler behandeln 

- Ergebnis auswerten. 

Bei einer Ein-/Ausgabeaktion können Eehler auftreten, die 
durch ein gesetztes Carry-Flag nach der Rückkehr vom KER- 
NAL-Unterprogramm gemeldet werden. Die Fehlernummer steht 
dann im Akkumulator. Folgende Fehlernummern sind möglich: 


FehlernumBer Bedeutung 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

240 


Routine durch STOP-Taste unterbrochen 

Zuviele Dateien sind offen 

Die Datei ist bereits offen 

Die Datei ist nicht offen 

Datei nicht gefunden 

Gerät nicht vorhanden 

Die Datei ist keine Eingabe-Datei 

Die Datei ist keine Ausgabe-Datei 

Dateiname fehlt 

Ungültige Geräteadresse 

Die Speicherobergrenze wurde durch den 

RS-232 Puffer verändert 


Es ist zu beachten, daß manche Ein- / Ausgabe-Routinen 
nicht diese Fehlermeldungen benützen, sondern man selbst 
durch den Aufruf der Routine READST den Eingabestatus 
feststellen muß. 

Es folgt die Tabelle der KERIMAL-Routi nen, die ähnlich 
aufgebaut ist wie die Tabelle der Basic-Routinen. 
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2.5 Laden der Maschinenprogramme 


Ein kleines Maschinenprogramm kann natürlich mit POKE-An- 
weisungen direkt im Speicher abgelegt werden. Für größere 
Programme verwendet man meist einen Assembler, und dieser 
legt die Objekt-Datei in der Regel auf einer Diskette oder 
Kassette ab. Von dort kann man die Programme dann mit den 
folgenden Befehlen laden. 

LOAD "Name",8,1 (Floppy) 

oder LOAD "Name",1,1 (Kassettenrekorder) 

Anschließend muß meistens noch der Befehl NEW eingegeben 
werden, damit die Basic-Zeiger wieder zurückgesetzt wer¬ 
den, die durch ein LOAD im Direkt-Modus verändert worden 
sind. 

Von einem Basic-Programm aus kann man die Maschinenpro¬ 
gramme ebenfalls laden, dabei muß man jedoch beachten, daß 
nach einem LOAD-Befehl das Programm wieder mit der ersten 
Programmzeile beginnt. Da die Variablen erhalten bleiben, 
kann man sich einen Merker setzen, der angibt, ob ein 
Maschinenprogramm bereits geladen worden ist. Das könnte 
wie folgt aussehen: 

10 IF L=0 THEN L=1 : LOAD "NAME 1”,8,1 
20 IF L = 1 THEN L = 2 : LOAD "NAME 2",1,1 

30 CLR : REM Variable L kann hier wieder entfernt werden 
40 REM Beginn des Programms 

Hier wird das erste Maschinenprogramm "Name 1" von Floppy 
geladen, und anschließend ein weiteres Programm 'Name 2" 
vom Kassettenrekorder. 

Wenn ein Maschinenprogramm zusammen mit dem Basic-Programm 
als ein Stück geladen werden soll, so muß das Maschinen¬ 
programm im Anschluß an das Basic-Programm stehen. Das 
erreichen Sie beim Assembler durch entsprechende Wahl der 
Startadresse. Wenn sich Basic-Programm und Maschinenpro¬ 
gramm gleichzeitig im Speicher befinden, so können Sie 
durch Eingabe folgender Befehle den gesamten Speicher¬ 
bereich als Programm abspeichern: 
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10 SYS 57812 "Name - ,8 

20 POKE 193 ; (Anfangsadresse Low Byte) 
30 POKE 194,(Anfangsadresse High Byte) 
40 POKE 780,193 

50 POKE 781,(Endadresse Low Byte) 

60 POKE 782,(Endadresse High Byte) 

70 SYS 65496 


2.6 Anbinden mit dem SYS-Befehl 


Die am häufigsten verwendete Vorgehensweise zum Anbinden 
von Maschinenprogrammen ist der SYS-Befehl. Trifft der 
Basic-Interpreter auf einen solchen Befehl, so verzweigt 
er zu einem Maschinenprogramm an der angegebenen Adresse. 
Dieses Maschinenprogramm muß mit RTS enden, womit die Pro¬ 
grammkontrolle wieder an Basic übergeben wird. Umittelbar 
nach der Ausführung des SYS-Befehls steht der Basic-Pro- 
grammzeiger auf dem nächsten Zeichen hinter der Adresse. 
Dadurch können mit entsprechenden Routinen leicht Para¬ 
meter aus dem Basic-Text übernommen werden. 


Parameterübergabe mit PEEK und POKE 

Für den Anfänger ist es einfacher einige Parameter mit 
PEEK- und POKE-Befeh len zu übernehmen bzw. zu übergeben. 
Die Übernahmeadressen müssen ebenso wie das Maschinenpro- 
gramm selbst, in einem Bereich liegen, der von Basic nicht 
verändert wird (z.B. von $0000 bis $CFFF). 

Einige der für die Parameterübergabe verwendbaren Spei¬ 
cherzellen sind bereits vom Betriebssystem her vorgegeben. 
Das sind die Speicherzellen 780 bis 783 (dezimal). Vor dem 
Aufruf einer Maschinen-Routine mit SYS kann man hier nach¬ 
einander die Werte für Akkumulator, X-Register, Y-Register 
und Prozessorstatus mit POKE-Befeh len festlegen, die dann 
vor dem eigentlichen Abarbeiten der Maschinen-Routine so 
besetzt werden. Nach Beendigung der Maschinen-Routine mit 
RTS werden die eventuell veränderten Werte dieser Register 
in diese Speicherzellen zurückgeschrieben, und können dann 
mit PEEK-Befeh len ausgelesen werden. Diese Tatsache bietet 
Ihnen die Möglichkeit auch Betriebssystem-Routinen vom 
Basic aus aufzurufen, die einen bestimmten Wert im Akku 
oder den anderen Registern benötigen. Ein Beispiel dafür 
ist das in Kapitel 2.5 angesprochene Speichern eines zu¬ 
sammenhängenden Speicherbereichs mit Hilfe der KERNAL- 
Routine SAVE. 
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Parameterübergabe beim erweiterten SYS-Befehl 

Ein SYS-Befehl mit Parametern kann z.B folgende Form 
haben: 


SYS Adresse,Paraml,Param2,Param3 

Die Trennung der Paramter voneinander und von der Adresse 
geschieht hier mit Kommata. Dies ist nicht unbedingt not¬ 
wendig, jedoch ist diese Art am leichtesten vom Maschinen¬ 
programm her zu bearbeiten. Wie oben erwähnt, steht nach 
dem Aufruf der Routine der Basic-Programm-Zeiger unmittel¬ 
bar hinter der Aufrufadresse, d.h. in unserem Beispiel auf 
dem Komma. Es muß jetzt geprüft werden, ob nach der Adres¬ 
se des SYS-Befehles wirklich ein Komma folgt. Das kann mit 
dem Unterprogrammaufruf 3SR CHKCOM (vgl. Basic-Routinen) 
durchgeführt werden. Diese Routine setzt auch gleich den 
Basic-Programmze iger eine Stelle weiter. Dann kann man den 
folgenden Parameter mit einer entsprechenden Betriebssys¬ 
tem-Routine auswerten, dazu sind vor allem folgende Basic- 
Routinen geeignet: 

FRMNUM holt numerischen Ausdruck in F1ießkomma-Akkumulator 
GETBYT holt Byte-Wert in X-Register 

GETAB holt Adresswert nach $14,$15 und Bytewert ins 
X-Register 

VARSUC bestimmt Adresse einer Variablen 
FRMEVL wertet beliebigen Ausdruck aus; bei String- 
Parametern ist zusätzlich FRESTR aufzurufen 

Die Beschreibung der Routinen finden Sie bei den Basic- 
Routinen, ausführliche Beispiele in Kapitel 4. 


2.7 USR-Funktion 


Trifft der Basic-Interpreter beim Auswerten eines Aus¬ 
drucks auf die Funktion USR, so wertet er automatisch den 
Parameter dieser Funktion (den in Klammern angegebenen 
Wert) aus, und ruft dann eine Maschinen-Routine auf, deren 
Adresse in den Speicherzellen 785 und 786 für das Low- und 
das High-Byte gespeichert ist. 

Wird die USR-Funktion als numerische Funktion eingesetzt, 
wie das meist der Fall ist, so ist das Ergebnis der Funk¬ 
tion mit dem Inhalt des F1ießkomma-Akkumulators identisch. 
Den Fließkomma-Akkumulator (FAC) kann man mit entsprechen¬ 
den ROM-Routinen (vergl. Kapitel 2.4) verändern. 

Prinzipiell ist es auch möglich die USR-Funktion als 
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String-Funktion zu benützen, doch wollen wir darauf nicht 
weiter eingehen. 

Die Übergabe von Parametern an die USR-Funktion kann sehr 
mannigfaltig gestaltet werden. Im einfachsten Fall wird 
ein numerisches Argument übergeben, das der Maschinen- 
Routine vom Basic-Interpreter im F1ießkomma-Akkumulator 
zur Verfügung gestellt wird. 

Es kann aber auch ein String-Parameter übergeben werden. 
Die Werte dieses Parameters müssen dann durch Aufruf der 
Routine FRESTR bestimmt werden. Ein Beispiel dafür finden 
Sie in Kapitel 4.8, in dem der Wert einer hexadezimalen 
Zahl bestimmt wird. 

Auch können noch mehr Parameter an die USR-Funktion über¬ 
geben werden. Der Basic-Interpreter stellt den ersten 
Parameter bereits aufbereitet zur Verfügung. Die anderen 
Parameter müssen wie beim SYS-Befehl gelesen werden. 

Ein wesentlicher Nachteil der USR-Funktion ist, daß nur 
ein Maschinenprogramm damit aufgerufen werden kann. Wenn 
man aber als zweiten Parameter die Nummer eines Programms 
übergibt, so kann man damit einen Sprungverteiler aufru- 
fen, der dann entsprechend zu den einzelnen Programmen 
verzweigt. Man kann natürlich auch immer wieder den USR- 
Vektor verändern. 


2.8 Die Zero-Page des Commodore 64 


Der wohl wichtigste Bereich eines 6510-Rechners ist der 
Speicherbere ich von 0 bis 255, die sogenannte Zero-Page. 
Im Anschluß an diese einleitenden Worte finden Sie eine 
Tabelle mit den Belegungen, wie sie durch das Commodore- 
Basic und das Betriebssystem benützt werden. Die Adressen 
sind sowohl hexadezimal als auch dezimal angegeben. In der 
Spalte 'Bedeutung' finden Sie die verwendete Belegung die¬ 
ser Speicherzellen. Die Basic-Routinen verwenden diese 
Speicherzellen manchmal auch zu anderen Zwecken, es sind 
jeweils aber nur die wichtigsten aufgeführt. 

Diese Tabelle ist aus zwei Gründen wichtig. Zum einen 
können Sie nachsehen, wo sich ein von Ihnen gewünschter 
Zeiger befindet, andererseits enthält diese Tabelle auch 
Hinweise darüber, welche Speicherzellen Sie für Ihre 
eigenen Zwecke verwenden können, ohne daß Sie von Basic 
verändert werden. 

Es gibt in der gesamten Zero-Page fast keine Speicher- 
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zelle, die nicht irgendwann von Basic oder KERNAL verän¬ 
dert wird. Sie können aber, weil Sie Ihr Programm ja ken¬ 
nen, entscheiden, ob eine bestimmte Funktion benötigt wird 
oder nicht. Z.B. sind die Fließkomma-Akkumulatoren #3 und 
#4 verwendbar, wenn keine komplizierten arithmetischen 
Ausdrücke Vorkommen. Ebenso können Sie Adressen verwenden, 
die sich auf den Kassettenrekorder oder die RS-232- 
Schnittstel le beziehen, wenn Sie diese nicht verwenden. 


Hexadresse Oezinal Bedeutung 


00 



0 



Datenrichtungsregister für 
Prozessor-Port 

01 



1 



P rozessor-Port 

02 



2 



unbenutzt 

03 

“ 

04 

3 

“ 

4 

Vektor für Umwandlung Fließkomma 
nach Integer 

05 

— 

06 

5 

— 

6 

Vektor für Umwandlung Integer nach 

F 1 ießkomma 

07 



7 



Suchzeichen 

08 



8 



“-Merker 

09 



9 



Speicher für Spalte des TAB-Befehls 

OA 



10 



Load = 0,Verify = 1 

OB 



11 



Zeiger in Eingabepuffer, Anzahl der 
Dimensionen 

OC 



12 



Merker für automatische Dimensionier¬ 
ung 

OD 



13 



Datentyp: $00=numerisch, $FF=String 

OE 



14 



Datentyp: $00=real, $80=integer 

OF 



15 



"-Merker bei List 

10 



16 



Merker für FN 

11 



17 



Merker für Input=$00,GET=$40,READ=$98 

12 



18 



Vorzeichen bei ATN 

13 



19 



aktive I/O-Datei 

14 

- 

15 

20 

- 

21 

Adresswert, z.B. Zeilennummer 

16 



22 



Zeiger auf Stringstack 

17 

- 

18 

23 

- 

24 

Zeiger auf zuletzt verwendeten String 

19 

- 

21 

25 

- 

33 

Stringstack 

22 

- 

25 

34 

- 

37 

Zeiger für diverse Zwecke 

26 


2A 

38 

— 

42 

Register für Funktionsauswertung und 
Arithmetik 

2B 

- 

2C 

43 

- 

44 

Zeiger auf Basic-Programmstart 

2D 

- 

2E 

45 

- 

46 

Zeiger auf Start der Variablen 

2F 

- 

30 

47 

- 

48 

Zeiger auf Start der Arrays 

31 

- 

32 

49 

- 

50 

Zeiger auf Ende der Arrays 

33 

- 

34 

51 

- 

52 

Zeiger auf Beginn der Strings 

35 

- 

36 

53 

- 

54 

Hilfszeiger für Strings 

37 

- 

38 

55 

- 

56 

Zeiger auf Basic-RAM Ende 

39 

- 

3A 

57 

- 

58 

augenblickliche Basic-Zeilennummer 

3B 


3C 

59 

- 

60 

vorherige Basic-Zeilennummer 
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Hexadresse 

Dezimal 

Bedeutung 

3D 

- 

3E 

61 - 

62 

Zeiger auf nächstes Basic-Statement 
für CONT 

3F 

- 

40 

63 - 

64 

augenblickliche Zeilennummer für DATA 

41 

- 

42 

65 - 

66 

Zeiger auf DATA-Element 

43 

- 

44 

67 - 

68 

Vektor für INPUT-Routine 

45 

- 

46 

69 - 

70 

Variablenname 

47 

- 

48 

71 - 

72 

Variablenadresse 

49 

- 

4 A 

73 - 

74 

Variablenzeiger für F0R...NEXT 

4B 

- 

4C 

75 - 

76 

Zwischenspeicher für Programmzeiger 

4D 



78 - 

79 

Zeiger für FN 

50 

- 

53 

80 - 

83 

Zeiger für diverse Zwecke 

54 



84 


Konstante $4C OMP für Funktionen 

55 

- 

56 

85 - 

86 

Sprungvektor für Funktionen 

57 

- 

5B 

87 - 

91 

Fließkomma-Akku #3 

5C 

- 

60 

92 - 

96 

Fließkomma-Akku #4 

61 

- 

65 

97 - 

101 

Fließkomma-Akku #1, FAC 

66 



102 


Vorzeichen des FAC 

67 



103 


Zähler für Polynom-Auswertung 

68 



104 


Oberlaufbyte des FAC 

69 

- 

6D 

105- 

109 

Fließkomma-Akku #2, ARG (Argument) 

6F 



111 


Vergleichsbyte der Vorzeichen von FAC 
und ARG 

70 



112 


Rundungsbyte für FAC 

71 

- 

72 

113- 

114 

Zeiger für Kassettenpuffer 

73 

— 

8A 

115- 

138 

CHRGET - Routine, holt Zeichen aus 
Basic-Text 

7A 

- 

7B 

122- 

123 

Programmzeiger (Basic) 

8B 

- 

8F 

139- 

143 

letzter RND-Wert 

90 



144 


Statuswort ST 

91 



145 


Merker für Stop-Taste 

92 



146 


Zeitkonstante für Kassettenrekorder 

93 



147 


Merker für Load $00 oder Verify $01 

94 



148 


Merker für Ausgabe (serieller Bus) 

95 



149 


Ausgabepuffer für seriellen Bus 

96 



150 


Merker für EOT vom Kassettenrekorder 

97 



151 


Hilfszelle (Zwischenspeicher) 

98 



152 


Anzahl der offenen Files 

99 



153 


aktives Eingabegerät 

9A 



154 


aktives Ausgabegerät 

9B 



155 


Parität für Kassettenrekorder 

9C 



156 


Merker für Byte empfangen 

9D 



157 


Merker für Direkt-Modus $80 oder 
Programm $00 

9E 



158 


Prüfsumme erster Durchlauf beim Ein¬ 
lesen von Daten von Kassettenrekorder 

9F 



159 


Prüfsumme zweiter Durchlauf 

A0 

- 

A2 

160- 

162 

Uhr (1/60 Sek.) 

A3 



163 


Bitzähler für serielle Ausgabe 

A4 



164 


Zähler Tr Kassettenrekorder 
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Hexadresse Dezimal Bedeutung 


A5 


165 

Zähler für Kassettenrekorder-Synchro¬ 
nisation 

A6 


166 

Zeiger für Kassettenrekorder-Puffer 

A7 - 

AB 

167-171 

Arbeitsspeicher für Ein-/Ausgabe der 

RS 232-Schnittste 1 le 

AC - 

AD 

172-173 

Zeiger für Kassettenpuffer und 

Sero 11ing 

AE - 

AF 

174- 175 

Zeiger auf Programmende bei LOAD/SAVE 

BO - 

Bl 

176-177 

Zeitkonstanten für Kassettenrekorder- 
Timing 

B2 - 

B3 

178-179 

Zeiger auf Kassettenpuffer 

B4 


180 

Bitzähler für RS 232 

B5 


181 

nächstes Bit für RS 232 

B6 


182 

Puffer für auszugebendes Byte 

B7 


183 

Länge des aktuellen Dateinamens 

B8 


184 

aktuelle logische Dateinummer 

B9 


185 

aktuelle Sekundäradresse 

BA 


186 

aktuelle Gerätenummer 

BB - 

BC 

187- 188 

Zeiger auf aktuellen Dateinamen 

BD 


18 9 

Arbeitsspeicher serielle Ein/Ausgabe 

BE 


190 

Blockzähler für Kassettenrekorder 

BF 


191 

Puffer für serielle Ausgabe 

CO 


192 

Merker für Kassettenmotor 

CI - 

C2 

193-194 

Startadresse für Ein/Ausgabe 

C3 - 

C4 

196-196 

Endadresse für Ein/Ausgabe 

C5 


197 

Letzte gedrückte Taste (64=keine Taste 
gedrückt) 

C6 


198 

Anzahl der gültigen Zeichen im Tasta- 
tu rpuffer 

C7 


199 

Merker für Reverse-Modus 

C8 


200 

Zeilenende für Eingabe 

C9 


201 

Cursorzeile für Eingabe 

CA 


202 

Cursorspalte für Eingabe 

CB 


203 

gedrückte Taste (keine Taste: 64) 

CC 


204 

Merker für blinkenden Cursor 
(0 : b 1 i nke n) 

CD 


205 

Zähler für Cursor blinken 

CE 


206 

Zeichen unter dem Cursor 

CF 


207 

Merker für Cursor-Blinken 

DO 


208 

Merker für Eingabe von Tastatur oder 

Bildschirm 

Dl - 

D2 

209-210 

Zeiger auf Start der aktuellen Bild¬ 
schirmzeile 

D3 


211 

Cursorspalte 

D4 


212 

“-Merker für Editor 

D5 


213 

Länge der Bildschirmzeile 

D6 


214 

Cursorze i le 

D7 


215 

diverse Zwecke 

D8 


216 

Anzahl der Inserts 
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Hexadresse 

Dezimal 

Bedeutung 

D9 - 

F2 

217-242 

MSB der Bildschirmzeilenanfänge 

F3 - 

F4 

243-244 

Zeiger in Farb-RAM 

F5 - 

F6 

245-246 

Zeiger auf Tastatur-Dekodiertabelle 

F7 - 

F8 

247-248 

Zeiger auf RS 232 Eingabepuffer 

F9 - 

FA 

249-250 

Zeiger auf RS 232 Ausgabepuffer 

FB - 

FE 

251-254 

Frei für Benutzer 

FF 


255 

Eingabepuffer für Basic 
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3. Basic-Prograa« des Assemblers 


Das folgende Kapitel ähnelt sehr stark dem in Band 1 vor¬ 
gestellten Assembler. Anders als bei dem Assembler aus 
Band 1 werden hier später einige Unterprogramme selbst in 
Assemblersprache geschrieben, die wir deshalb hier im 
Basic-Teil auch nicht ausführlich besprechen werden. 

Man braucht, wie wir bereits im ersten Kapitel gesehen ha¬ 
ben, zur Entwicklung von Maschinenprogrammen ein eigenes 
Programm, das die Zeichenreihen, die einen Befehl darstel¬ 
len sollen, in die für den Prozessor lesbaren Werte umwan¬ 
delt. Ein solches Programm nennt man Assembler. Wenn wir 
dabei noch Symbole für konstante Werte und Marken für 
Sprungziele Marken verwenden, so haben wir einen symboli¬ 
schen Assembler, d.h. wir können jetzt schreiben: 'OMP 
ENDE' anstatt z.B. 76, 255, 192. 

Ein Assembler muß aber noch mehr leisten. Er muß den Text, 
der in Maschinensprache übersetzt werden soll, von einem 
externen Speichermedium lesen können, er muß die Symbole 
verwalten und er muß das Resultat wieder auf ein externes 
Speichermedium zurückschreiben. Mit all diesen Fähigkeiten 
ist der im vorliegenden Band beschriebene Assembler ausge¬ 
stattet. Zusätzlich kann man dann noch den Assemblierungs¬ 
vorgang mit Direktiven steuern, so z.B. die Wahl der 
Startadresse oder das Hinzufügen von bereits früher er¬ 
stellten Programmen. 

Zur Erläuterung der Funktionsweise eines Assemblers sind 
alle Unterprogramme in Basic abgebildet. Wir erläutern bei 
jedem Unterkapitel, welche Änderungen im Hauptprogramm da¬ 
zu notwendig sind. Das komplette Basic-L isting der 'ge¬ 
mischten Version' ist im Anhang abgedruckt. 

Wir haben vier Unterkapitel vorgesehen. Zunächst gehen wir 
auf die DATA-Statements ein, die unter anderem die ver¬ 
schiedenen mnemotechnischen Bezeichnungen, wie Sie bei dem 
6510/6502 üblich sind, inklusive ihrer Parameter angeben. 
Als nächstes werden die Basic-Unterprogramme erläutert, 
welche später durch Maschinenroutinen ersetzt werden. 

Im dritten Teil wird auf die anderen Unterprogramme einge¬ 
gangen, und im vierten Unterkapitel wird schließlich das 
Hauptprogramm beschrieben. 
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3.1 DATA-Anweisungen 


Die DATA-Statements liegen im Basic-Programm ab Zeile 
54000 bis hin zu Zeile 58260. Die DATA-Statements selbst 
sind wieder wie folgt untergliedert: 

54000 Anzahl der Adressenmodes je Befehlstyp 
55000 Angabe der mnemotechnischen Befehle mit ihrem 

dreibuchstabigen Code sowie die Nummer des Typs 
und alle aufgrund des Typs möglichen späteren 
Maschinencodes 

56000 Direktiven; Anweisungen im Assemblerprogramm, 
die keinen Maschinencode erzeugen 
57000 Basic-Schlüsselwörter 
58000 Fehlermeldungen 


3.1.1 Adressierungsarten 


54006 REM V. AC<0. . 5> ANZAHL MÜDES v 

54010 DATAI:REM TVP O IMPLIED 

54020 DATA2 :REM TYP 1 CJUMPS> ABSOLUTE,I HDIPECT 
54030 DATA 10 :REM #,Z,ZX,ZV, AAX , AV, IX, IV, AC TYP 2 
54040 DATA0 :REM BYTE 
54Ö50 DATA0 sREM WORD 

54060 DATA1:REM TYP 5 RELATIVE BRAUCHES 

Die Adressierungsarten werden später in dem Feld AC(0..5) 
gespeichert. Folgende Anzahlen für Adressenmodes sind mög¬ 
lich: 

Typ 0 - Modes: l,d.h. eir dreibuchstabiger Assembler¬ 
befehl des Typ 0, kann nur in einen einzigen 
Maschinenbefehl umgewandelt werden. 

Typ 1 - Modes: 2, hauptsächlich Dump-Befehle sind vom 
Typ 1. Diese können absolut und indirekt ad¬ 
ressiert werden 

Typ 2 - bis 10 Modes, in Typ 2 sind alle möglichen 
Operationen zusammengefaßt, die in bis zu 
zehn verschiedene Maschinencodes umgewandelt 
werden können. 

Typ 3 - Modes: 0, erzeugt keinen Code, sondern ist 
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ein Pseudobefehl zum Reservieren einer Kon¬ 
stanten von einem Byte 

Typ 4 - Modes: 0, erzeugt ebenfalls keinen Code, son¬ 
dern dient zum Reservieren einer Konstanten 
von zwei Byte (= 1 Word) 

Typ 5 - Modes: 1, faßt alle Befehle für relative 
Sprünge zusammen. 


3.1.2 Mnemotechnische Befehle 

55000 REM K$ <1. . 58 > , KM< 1.. . 58 > , KC$ CI.. 58,0. . HC < KM C 
55046 DHTflfiDÜ , 269, 6575, 6D , 70,79 .61.71 , 

55050 DHTHHND . 2.29.25.35. 20,30,39.21 ,31 . 

55060 DflTAflSL . 2 . 06.16. 0E . 1E . . . . 0fi 
55070 D fl THE C C . 5,9 0 
55080 D fi T fl B C S , 5 , B 0 
55090 D H T fl B E Q . 5 . F 0 
55100 DAT HB IT . 2.. 24 , , . 2C.. . . 

55110 DATflBMI,5,30 
55120 DATHBNE,5,00 
55130 DATABPL,5,10 
5 5140 0 fl T fl B R l< , 0,0 0 
55150 DATABVC,5,50 
55160 DATABVS,5,70 
55170 D fl TAB V'T’, 3 
55 180 D fl T fl C L Ü , 0,18 
55190 DflTflCLD , 0,08 
55200 DATACLI,0,58 
55210 DATFlCLV , 0 , B8 

55220 DflTflCMP,2,C9,C5,05,,CD,00,09,C1,01, 

55230 ÜflTflCF'N , 2 , E0 , E4 , , , EC , , , , , 

55240 DAT'flCPV , 2 , C0 , C4 , , , CC , , , , , 

55250 0 fl T fl 0 E C , 2 , , C 6,0 6 , , C E , 0 E , , , , 

55260 D fl T fl D E X , 0 , C fl 
55270 0fl T fl 0 E V , 0,8 8 

55280 OflTflEÜR,2,49,45,55,,40,50,59,41,51, 

55290 D fl T fl IN C , 2 , , E 6 , F 6 , , E E , F E , , , , 

55300 D fl T fl IM X , 0 , E 8 
55318 D fl T fl IN V , 0 , C 8 
55320 DflTflJMP,1,4C,6C 
55330 D fl T fl J S R , 1,2 0 , 

55340 0flTAL0fl , 2 , fl9 , fl 5 , B5 , , fl0 , B0 , B9 , fl 1 , B1 , 

55350 IJ fl T fl L D X , 2 , fl 2 , fl 6 , , B 6 , fl E , , B E , , , 

55360 0ATA L 0 V , 2 , fl 0 , fl 4 , B 4 , , fl C , B C , , , , 

55370 DflTflLSR , 2 , ,46,56 , , 4E , 5E , , , , 4fl 

55380 IJ fl T fl I I0 P , 0 , E fl 

55390 DAT HÖR fl , 2,09,05 , 15 , , 00 , 1D , 1 9,01 , 1 .1. , 

5 5 400 D fl T fl P H fl , 0,4 8 


i :> 
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55410 DATAPHP,0,08 
55420 D fl TR PL Fl, 0., 68 
55430 D fl T fl P L P , 0,2 8 

55440 DflTflROL , 2 ... 2636 , ,2E,3E , ., , , 2fl 
5 545 0 D fl T fl R O R - 2 ,6 6 , 7 6 , ... 6E 7 Ei , , , ... 6 fl 
55460 D fl T fl R TI , 0... 4 0 
55470 DATA R T S., 0., 6 0 

55430 DAT fl S B C, 2 E 9 , E 5 , F 5., ., E D., F D,. F 9 , E1 , F 1 , 

55490 DATflSEC,0,38 
55500 DATflSED, 0,. F8 
5551 0 DflTflyE 1 ., 0 ... 78 

5 5 520 DATASTfl.,2,. , 8 5 ., 95 , ... 8 0 , 90,99 , 8 :l , 91 , 

55530 D fl T fl S T X , 2 , , 86., , 96 ., 8E , , ., , ., 

55548 OflTflSTV , 2 ., ., 84., 94., ... 8C., ., .,., ., 

55550 DATflTAX., 0., flfl 
55560 DATflTfl'r'., 0 , A8 
55570 DATA TVfl,G,98 
55580 0 fl T fl T 8 X, 0 , Ei fl 
55590 DAT fl TX fl 0 ., 8fl 
556GG D fl T fl T X S., 0., 9 fl 
55610 D fl TA WO R., 4 

In diesen DATA-Statements sind alle mnemotechnischen Be¬ 
fehle des 6510/6502 zusammengefaßt. Oede DATA-Zeile be¬ 
steht aus dem dreibuchstabigen Befehl, dem Typ, wie er in 
Kapitel 5.1.1 beschrieben wurde, und den verschiedenen 
hexadezimalen Werten, die das Maschinenprogramm aufgrund 
des Codes und den verschiedenen Adressierungen annehmen 
kann. 

Bei Verwendung des später erläuterten Maschinenprogramms 
zum Suchen einer mnemotechnischen Bezeichnung werden die 
Befehle selbst in dieser Tabelle überflüssig. Die Maschi¬ 
nenroutine beinhaltet diese Tabelle selbst. 


3.1.3 Direktiven 

56030 DflTflORG., END , I NO., DUP., FISC., INCLUDE 

Der vorliegende Assembler kennt sechs Direktiven: 

%0RG - erstes absolutes Byte (Startadresse) für 
das Maschinenprogramm (Objekt-Programm) 
fe stiegen 

%END - Ende des Que11programms 

%IN0 - Startadresse für das Assembler-Programm 

am Bildschirm erfragen 

%DUP - Dupliziere Befehl um angegebene Anzahl 

%ASC - Speichere Text an dieser Stelle in 

Objekt-Datei (als Folge von ASCII-Codes) 
%INCLUDE - Füge an dieser Stelle eine andere Quell- 
- Datei ein 
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In den DATA-Statements werden die Direktiven ohne an¬ 

gegeben. 


3.1.4 Basic-Keywords 

57910 REH m A BK*<128. .203> BflSIC-KEVWÜRDS % 

57030 D FIT HE HD... FÜR, HEXT.. DR TH, INPIJT#I HF'ÜT, DIH 
57040 DRTRRERDLET , GOTO , RUH... IF , RES T ORE 
57050 DRTRÜQSUB,. RE I URI I, REH., STOP , OH , Hfl IT, LORD 
57060 DRTRSRVE , VERIFV.. DEF , POKE,. PR I ITT# 

57070 DFlTRPR IHTCOHT , L. I ST , CLR , CHDSVS,. ÜF'EH 
57080 DRTRCLOSE , GET , HEHTHE!: C , TO... FH , SPC < 

57090 DRTRTHEHHOT , STEP , +,. -, * ,.. T , RHD , OR.. > , = 

57100 DFlTR C , SGH... I HT , RBS... USR , FRE , POS.„ SQR 
571 10 D FIT RR: HD , LÜG , EXP , COSSIH , TRH , RTH , PEEK 
57120 DRTRLEH ,STR*,. VRL,. RSC , C.HR f,. LEFT* 

5 7130 D Fl T fl RIG H T * , H1D * , G 0 

In einer Programmdatei sind die Basic-Keywords jeweils in 
einem Byte dargestellt, deren Codes etwas abseits von den 
normalen Buchstaben im ASCII-Bereich von 128 bis 203 lie¬ 
gen. Deshalb wird in dem Feld BK$() dieser Bereich mit den 
Basic-Keywords besetzt. Die Bedeutung der Basic-Keywords 
dürfte Ihnen bekannt sein. Notwendig ist die Verarbeitung 
der Basic-Keywords, da in den Assembler-Programmen even¬ 
tuell Basic-Keywords Vorkommen können, die da nichts zu 
suchen haben. 

Das Umsetzen einer Programmzeile in Klartext erfolgt spä¬ 
ter in einem Maschinenprogramm, welches ähnlich wie die 
LIST-Routine arbeitet. Die oben abgebildeten DATA-State- 
ments sind dann nicht mehr notwendig. 


3.1.5 Fehlermeldungen 


58010 REH y. ER** 1 . . ESO FEHLERMELDUMGEH 

58030 DflTfl "SVHTflX : FALSCHES MHEHONIC" 

58040 DflTfl"SVHTflX : FALSCHE OIRECTIVE" 

58050 DflTfl"SVHTflX : OPERAHD FEHLT" 

58060 DflTfl"SVHTflX ; KLAMMERN FALSCH GESETZT" 

58G70 DflTfl"SVHTflX : MODEZEICHEN HICHT AH ERSTER STELLE" 
58080 DflTfl"RDRESSIERIJNGSART HIER HICHT MOEGLICH" 

58090 DflTfl"KEIM OPERAND ERLAUBT" 

58100 DATEI "OPERAND MUSS EINE KONSTANTE SEIH" 

5 8110 DflTfl" 0 P E R fl H D M U S S EINE M fl R K E { L. fl FJ E L !:■ S E IN" 

58120 DflTfl"OPERAND FALSCH SPEZIFIZIERT" 
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53130 DRTfl"MARKE ODER KONSTANTE SCHON DEFINIERT" 

53146 DATA"AUSDRUCK DARF NUR 2 ARGUMENTE ENTHALTEN" 

58150 DATA"WERT ZU GROSS" 

53160 DATA " FALSCHE LA EN GE EINER HEX- ODER BINMER--Z AHL " 

53 1 70 DATA " UNÖUELT IGES ZEI CHEN IN BINRERZAHL " 

58130 DATA"DIESER WERT MUSS BEREITS HIER DEFINIERT SEIN" 
5319Ö DATA"SPRUNG ZU WEIT" 

53200 DATA"ZU VIELE FEHLER" 

5321Ü DATA"STARTADRESSE NICHT DEFINIERT" 

58220 DATA"STARTADRESSE BEREITS DEFINIERT" 

53230 DATA" IJNGUELTI GE HEXHDEZINALZ AHL. 1 ' 

58240 DATA"ZU VIELE SVMEOLE" 

53250 D ATA" D FlT EI NIC H T G E F U N D E N 1 ' 

53260 DATA"UNGUELTIGER DATE I NAME" 

3.2 Unterprogramme 


In diesem Kapitel wenden die einzelnen Unterprogramme vor¬ 
gestellt, wobei die im ersten Teil angeführten Unterpro¬ 
gramme später assembliert werden. Die anderen Unterpro¬ 
gramme werden seltener gebraucht, und ihre Assemblierung 
würde keinen großen Zeitvorteil im Assemblerlauf bringen. 
Außerdem sollten diese Unterprogramme für Ihre Zwecke än¬ 
derbar sein, was in Basic wesentlich einfacher ist. 


3.2.1 Häufiger verwendete Unterprogramme 


Im folgenden sind die Unterprogramme abgebildet, die spä¬ 
ter durch Maschinenprogramme ersetzt werden. Die Funk¬ 
tionsweise dieser Routinen braucht hier nicht weiter er¬ 
läutert werden, da es sich um recht einfache Algorithmen 
handelt. Im Zweifelsfall sei auf Band 1 verwiesen. 

Als Parameter werden Variablen und Speicherzellen verwen¬ 
det. Die Auswahl der Parameter mag manchmal etwas umständ¬ 
lich erscheinen, weil die Struktur der Untergprogrammauf- 
rufe für den späteren Einsatz von Maschinenroutinen vorbe¬ 
reitet wurde. 

Folgende Routinen sind abgebildet: 

10 Ein Zeichen lesen aus File #FP 
50 Position (A) von A$ in AA$ bestimmen 
100 Blanks von T$ eliminieren 
200 2-stellige Hexzahl (H$) aus H bilden 

250 4-stellig! Hexzahl (HH$) aus HH bilden 

400 Wert von Hexzahl (HH$) nach HH 
500 Name in Tabelle suchen und Werte bestimmen 
600 Check auf mnemotechnischen Code 
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600 Check auf mnemotechnischen Code 
700 Ein Sonderzeichen (A$) in T$ suchen 
800 Mehrere Sonderzeichen (aus AA$) in T$ suchen 

17000 Fehler registrieren 

18000 Symbol in Tabelle einfügen 

20500 Symboltabelle drucken 

20700 Symboltabelle speichern 

22500 Eine Programmzeile lesen 

22700 Eine Textzeile lesen 

50500 Initialisierungsroutine (Teil des Vorspanns) 


In der ersten Zeile jedes Unterprogramms ist der SYS- 
Befehl angegeben, mit dem später der Aufruf des Unter¬ 
programms ersetzt wird. 


Zeichen aus Datei einiesen 

10 REM ENTSPRICHT 3VS P2..FF' *** 

15 GETttFP .IT 

25 I F I $= " " THEHI $=CHR* < © > 

3 © P 0 K E Q 3.. fl S C < I$ > 

35 RETURN 


Eingabeparameter: FP = Nummer der Eingabedatei 

Ausgabeparameter: Zelle Q3 = ASCII-Code des eigentlichen 

Ze ichens 

IS = Eingabestatus 


Indexfunktion 

50 REM ENTSPRICHT SVS PS r R$, T t-, R *** 

55 R=0 

60 flfl:=LEN < H:t ■ 

65 IFRfl>LEHCT T > THENS5 
7 © F 0 R fl = 1T 0 L E H C T $ > - fl i l +1 
7 5 IF MID $ <. T f , fl.. fl fl > < > Elf TH E H H E X. T 
30 IF POLEN C T* > -flfl+1 THE’Hfl=0 
85 RETURN 


Eingabeparameter: 
Ausgabeparame ter: 


A$ 

AA$ 

A 


Zeichenreihe, die gesucht wird 
Zeichenreihe, in der gesucht wird 
Position von A$ in AA$ 
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Leerzeichen eliminieren 

100 REN ENTSPRICHT SYS PI,TT 

110 I FR IGHTT < TT , 1 > = " " THEHTT=LEFTT < TT , LEN < TT > -1 > : GOTO 110 
120 IFLEFTT < TT , 1 > = " " THENTT=M I DT C. TT , 2 > : GOTO 120 
130 RETURN 

Ein-/Ausgabeparameter: T$ = Zeichenreihe, deren Leerzei¬ 
chen eliminiert werden sollen 


Zweistellige Hexadezimalzahl bilden 

200 REN ### ENTSPRICHT SYS PS,H ,HT 
210 HT -Ti I DT C HET , H/ 1 6+ 1 , 1 > +NI DT < HET.. < HAND 15 > + 1,, 1 > 


220 RETURN 



Eingabeparameter: 

H 

= Zahlwert 

Ausgabeparameter: 

H$ 

= Hexadezimalzahl (2 Zeichen) 

Bemerkung: 

HE$ 

= "0123456789ABCDEF ” 


Vierstellige Hexadezimalzahl bilden 

250 REN ### ENTSPRICHT SYS F'5,HH ,HHT- *** 
260 H = I NT < HH/256 > 

270 GOSUB200 
2S0 HNT--HT 
290 H=HH-25S*H 
300 GOSUB200 
310 HHT=HHT+HT 
320 RETURN 


Eingabeparameter: H = Zahlwert 

Ausgabeparameter: H$ = Hexadezimalzahl (2 Zeichen) 


Wert von Hexadezimalzahl bestimmen 

400 REN ### ENTSPRICHT HH=IJSR < HHT > *** 

410 HH=0 

420 FORH=1TOLEN <HHT > 

430 HH=16*HH+FNV < flSC <MI DT ( HHT,H,1 > > > 

440 NEXT 
450 RETURN 
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Eingabeparameter: HH$ = Hexadezimalzahl (bis 4 Zeichen) 
Ausgabeparameter: HH = Zahlwert 

Bemerkung: FNV(X) = X-48+7*(X größer als 64) 


Tabelle durchsuchen und Wert bestimmen 

500 REM ### ENTSPRICHT SVS PB /T N*TV r TV *** 
510 TV=0 
520 TV=0 

530 IF T Fl=0 T H E N R E TIJ R N 

540 FORTF=lTÜTfl 

550 I FTMT< TF > OTNTTHENNENT 

560 IFTF>TRTHENTV=0 : TV=0 : RETURN 

570 TV=TV<TF > 

530 TV=TV<TF> 

590 RETURN 


Eingabeparanieter: TN$ = zu suchendes Symbol 

Ausgabeparameter: TF = Nummer des Symbols 

TV = Wert des Symbols 

TY = Typ des Symbols 


Test auf Vorhandensein der mnemotechnischen Bezeichnung 

600 REM ■*.*.* ENTSPRICHT SVS F'DR* :K=PEEKX782> 

610 FORK=1T05S 

620 IF fl T < > K T C K T H E N N E X T 

630 IF K > 5 S T H E N l<=0 

650 RETURN 


Eingabeparameter: K$ = zu suchende Bezeichnung 
Ausgabeparameter: K = Nummer des Bezeichnung 


Ein Sonderzeichen in T$ suchen 

700 REM ENTSPRICHT ETWA SVSP9TT,FlFl:T *** 

710 H=0 

720 I FTT= " "THENRETIJRN 
730 FORfl= 1TÖLEN TT > 

740 IF M10 T < T Tfl , 1 < > flTTHEN N E X T 
750 IF FD-LEN C TT > THEHfl~0 
760 RETURN 

Eingabeparameter: A$ = zu suchendes Zeichen 

T$ = Text, in dem gesucht wird 
Ausgabeparameter: A = Position des Zeichens 
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Mehrere Zeichen (aus AA$) in T$ suchen 


800 REM m* ENTSPRICHT ETWA SVSP3, TT ,fl< 0 ,flfl* 
810 FORflfl=1 TÖLEN< flfl* > 

820 A*=M I0*< Hfl*, flfl, 1 > ;GOSUB700 sfl <flfl-1 > =R 
.'330 NE KT fl fl 
840 RETURN 


Eingabeparameter: AA$ = alle zu suchenden Zeichen 

T$ = Text, in dem gesucht wird 
Ausgabeparameter: A() = Positionen der Zeichen 


Fehler registrieren 

17000 REM *** ENTSPRICHT SVS PR.,ER +** 
17010 EB=PEEK<Q4> 

17020 EB=EB+1 

17030 IFEB>=15THENEB=15 : ER=18 
17040 P0KEQ4+EB,ER 
17050 P0KEQ4 , EE: 

17060 RETURN 


Eingabeparameter : ER = Fehlernummer 

Ein-/Ausgabeparameter: Zelle Q4 = Anzahl Fehler 


Symbol in Tabelle einfügen 


18000 REM m* ENTSPRICHT SVS PC, TN*,TV>TV *** 
18005 Hl = TV :H2-.TV 
1 g 010 G 0 S U B 5 0 0 

18020 I FTYTHENER= 1 1 : GOSIJB17000 : RETURN 

18025 TV=H1:TV=H2 

18030 TR=Tfl+l 

18040 TV<: TR > =TV 

18050 TV < TR > =TV 

18060 TN*CTfl>=TN* 

18070 RETURN 


Eingabeparameter : TN$ = Name des Symbols 

TV = Wert des Symbols 

TY = Typ des Symbols 

Ein-/Ausgabeparameter: TA = Anzahl Symbole 
Bemerkung : Die Werte TV und TY müssen in Hl 
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und H2 zwischengespeichert werden, 
weil das Unterprogramm ab Zeile 500 
die Variablen TV und TV auch dann 
verändert, wenn das Symbol nicht 
gefunden wurde. 


Symboltabelle drucken 


20500 REM *** ENTSPRICHT SV3 PE *** 

20510 IF T fl=0 T H E H R E TIJ RN 
20520 FORIsslTOTFi 

20530 PR I NT TNT < I > ; " " ; MI DT < " ÜCL " ..TV C I > +1.. 1 > 

20540 HH=TVFI!:■:GOSUB250 

20550 PRINTHHT 

20560 NEXTI 

20570 RETURN 


Symboltabelle speichern 


20700 REM ENTSPRICHT SVS PF..5 

20710 IF T fl0 T H E N R E T LJ R N 
20720 F 0 RI = 1T O T fl 

20730 PR I NT#5MI DT < "IJCL " .. TV < I > +1... 1 > ; " ,■ " .? TNT < I > " .. " TV C I'•> 
20740 HEKT I 
20750 RETURN 


Eine Programmzeile lesen 

22500 REM ENTSPRICHT SVS P3..FP..TT *** 

22510 TT="" 

22520 G0 S U B10 
22530 GÜSUB10 
225 40 P 0 K E Q 2 +1 , P E E K < Q 3 > 

22550 IFP EEK<Q3 >=0TH ENRE TURN 

22560 O 0 S IJ B10 

2257 0 P O K E Q 1 , P E E K < Q 3 > 

22580 6OS U B10 

22590 P 0 K E 0. 1 + 1 , P E E K C Q 3 > 

2268 0 G O S IJ B10 

22610 IFPEEK<Q3 >—0THEN226 4 0 
22620 TT.-TT + BKT C Pi IEK < Q3 > > 

22630 GOT022600 
22640 RETURN 
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Eingabeparameter: 

FP 

Ausgabeparameter: 

T$ 

Zelle Ql 
Zelle Ql+1 
Zelle Q2 
Zelle Q2+1 

Eine Textzeile lesen 

22700 REM *:+:* ENT 
227U3 TT-"" 

22720 GFTttFP,RT 

SPRICHT SVS 

22730 I FR TO CH ET < 
22740 RETURN 

13>THENTT=T 

Eingabeparameter: 

FP 

Ausgabeparameter: 

T$ 

Initialisierungsroutine 


= Logische Dateinummer der 
Eingabedatei 
= eingelesene Textzeile 
= Zeilennummer Low-Byte 
= Zeilennummer High-Byte 
= Vorwärtszeiger Low-Byte 
= Vorwärtszeiger High-Byte 


P4 „ TT 


+RT :UOT022728 


= Logische Dateinummer der 
Eingabedatei 
= eingelesene Textzeile 


50500 REM *** ENTSPRICHT SVS PI *** 
50510 HE*="0123456789RBCDEF" 

50520 DEFFNVCX>«X-48+7#<X>64> 

50530 TH=0 
50540 P0KEQ4,0 

50550 DIMTN* <255 > , TV < 255 > .. TV < 255 > 
50560 DI MBKf C 255 > .. KT C 53 > 

50570 F ORI=0TOI27 
50530 BK* < I > =CHRT (. I > 

50590 HEXT 

50600 REM REST SPfiETER BEI 50385 

50610 RETURN 


Bemerkung: Dieses Unterprogramm besetzt alle die Variablen 
und Felder, die nur in der reinen Basic-Version 
benötigt werden. Werden die oben beschriebenen 
Unterprogramme durch Maschinenprogramme er¬ 
setzt, so kann auch der Aufruf dieses Unterpro¬ 
gramms durch einen entsprechenden Aufruf einer 
Initialisierungsroutine für die Maschinenpro- 
gramme ausgetauscht werden. 
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1 0000 
10010 
10020 
1 0030 
10040 
1 0050 
1 0060 
1 0070 
1 0080 
1 0090 
1 0 1 00 
10110 
10120 
1 0 1 30 
10140 
10150 
10160 
10170 
1 0 130 
1 0 1 90 
10200 
10210 
10220 
10230 
10240 
10250 
10260 
10270 
10280 
10290 
10300 
103 10 
1 0320 
10330 
10340 
10350 
10360 
1 0370 
10380 
10390 
10400 
10410 
10420 
10430 


3.2.2 Eine Zeile assemblieren 


REM * EINE ZEILE <TT> ASSEMBLIERER * 

CT=" " 

IJT=" " 

OOSIJB100 

AT=." " : GOSUB700 

IFATHENTT=LEFT 4 ( TTfl-1 > 

GOSUB100 

IFLEFTT < T T1 > = " X " THEWGOSUB 13000 : RETURN 
flT="=" 

GOSUB50 
IFA=0THEN10220 
T0T=LEFTT < TT , Fl-1 > 

T T=MI DT C T$,A+1 } 

OOSIJB 100 

KM=0 

GOSUB15000 
TT=T0T 
GOSUB100 

TT=LEFTT <TT+SPT,8 > 

T H T=T T : T V=W : T V = 1 : G 0 S U B18000 
RETURN 

IFADT=""THENER=19:GOSUB17000:RDT=CHRT<0>+CHRT<0> 

FlT- " : GOSUB 700 

IFA=0THEN10300 
T N T=L E F'T T < T T , A -1 > 

T T=M I DT C TTA+1 > 

OOSIJB 100 

T N T=L E F T T C T H T+S P T , 3 > 

T V=A D : T V=2 : G 0 S U B13000 
AT = " " 

OOSIJB 50 

I FA04AHDL.EN C TT > >3THENER= 1 : GOSUB 17000 : RETURN 
IFTT=""THENRETURN 
AT-LEFTT < TT 3 J :GOSUB600 
KM-KM<K> 

I FK=0THENER = 1 : GOSUB 17000 :: RETURN 
IT-MI DT < TT.. 4 J 
OOSIJB 14000 
IF PEE l< C 04 > THE N R E TIJ R N 

IF MO>=:0AHDKM=0THEMER=7 : GOSUB 17000 : RETURN 
I FMO=— 1ANDKM>0THENER-3 :GOSUB 17000 :: RETURN 
ONKM-h 1 GOT01 1000,11100... 1 1200,11300 1 1400,1 1500 
STOP 
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11000 l'1~-0 
11Ö10 GOSUB1 2 000 
11020 RETURN 
1110Ü M=2 

11110 I FMO= 10 R M O = 4 T H E N l v l 0 
1 1120 I FMO = 10THENM=: 1 
1113 0 G O SIJ B 12000 
11140 HH=W:GOSUB250 

1 1160 C4=C4+RI GHTif HH4 , 2 > + LEFT4 < Hi I * 2 

11170 RETURN 

11200 N = MO 

11210 G0SUB12000 

11220 IFM0=8THENRETURN 

1123o H1 = C MU=0ÜRMO= 10RN0=20RN0=30RM0=70RM0=8 > 

1 124Ü I FH 1 TUEN 14=W : GOSUB200 sCT=» NIT ; RETURN 
1 1250 HH=W: GOSUB250 

11270 C 4=C 4+RIG NT*. UN 4, 2 > + L E F T 4 < Hl 11 .2 > 

11230 RETURN 

11300 IF14>255THENER=8 :: GOSUB17000 :: RETURN 
11310 14=14 : GOSUB200 :04=114 
11340 RETURN 
11400 HH=U:GOSUB250 

11420 C4=R IGHT4 < HH42 > +L.EFT4 C FIH4.. 2 > 

11430 RETURN 
11500 M=1 

11510 IFMÜ=10R14 0=4 THENM=0 
1 1520 G 0 S U B12000 
11530 H=I4—FID—2 

11540 IFH>1270RHC-128THENER=17:GOSUB17000sRETURN 
1 1558 IFH<0THEN H=H+256 
11560 GOSIJB 2 0 @ 

11570 04=04-1 E It 
11580 RETURN 

Mit diesem Unterprogramm wird eine Zeile des Quelltextes 
in den entsprechenden Maschinencode umgewandelt. Weil in 
diesem Programmstück mehrere Funktionen vereinigt sind, 
wollen wir nacheinander auf die zugehörigen Programmteile 
eingehen. 

Zunächst wird die Variable C$ annulliert, die später den 
Maschinencode in hexadezimaler Form aufnehmen soll. Dann 
wird der Merker U$, der das Auftreten von noch nicht de¬ 
finierten Symbolen anzeigen soll, mit einem Leerzeichen 
besetzt. 


Bemerkung eliminieren 

Im Quelltext beginnt eine Bemerkung immer mit einem Se¬ 
mikolon (;)• Deshalb wird im Text ein solches Zeichen 
gesucht, und der Text ab der Stelle des Semikolons wird 
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abgeschnitten, da er für die Assemblierung nicht gebraucht 
wird. 


Direktive feststellen 

Ist das erste Zeichen des Quelltextes ein %-Zeichen, so 
liegt eine Direktive vor, und es wird das Unterprogramm 
zum Behandeln der Direktiven aufgerufen. 


Konstanten-Definition 

Eine Konstantendefinition hat die Form: 

Symbol = Wert 

Deshalb wird in diesem Programmstück zuerst ein Gleich¬ 
heitszeichen im Quelltext gesucht, und, wenn keines 
gefunden wurde, zum Programmstück 'Marken' (siehe unten) 
übergegangen. 

Zunächst werden die beiden Teilausdrücke vor und hinter 
dem Gleichheitszeichen in den Variablen T0$ und T$ zwi- 
schengespeichert und eventuell auftauchende Leerzeichen 
eliminiert. Dann werden die Variablen für die Größe des 
Symbolwertes und den Modus des Befehls gesetzt, die bei 
einer Konstanten-Definition immer SI=2 und KM=0 sind. Da 
die Konstantenvereinbarung aus einem Doppelterm (zwei 
Terme verknüpft mit einem einzigen Operator) bestehen 
kann, wird das Unterprogramm zur Auswertung dieses Aus¬ 
drucks aufgerufen. Schließlich wird das Symbol in die Sym¬ 
boltabelle eingefügt. Der Typ des Symbols ist hier '1', 
was bedeuten soll, daß dieses Symbol eine Konstante (keine 
Marke) ist. 


Marken (engl.: Labels) 

Eine Marke ist ein Symbol, welches den aktuellen Wert der 
Objektadresse übernimmt. Deshalb ist es notwendig, das 
spätestens an dieser Stelle die Startadresse des Objekt¬ 
programms definiert ist. Wenn nicht, wird eine Fehlermel¬ 
dung ausgegeben. 

Bei dem vorliegenden Assembler werden Markendefinitionen 
mit einem Doppelpunkt gekennzeichnet. Deshalb wird zu¬ 
nächst untersucht, ob die Zeile einen Doppelpunkt enthält, 
wenn nicht wird die Behandlung der Marken übersprungen. 

Anschließend wird der Variablen TN$ der Name der Marke 
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zugeordnet, der Variablen T$ eine eventuell folgende Be¬ 
fehlszeile. Anschließend wird die Marke in die Symbol¬ 
tabelle eingefügt, wobei hier der Typ auf ’2' gesetzt 
wird. 


Typ und Modus einer Befehlszeile feststellen 

Liegt weder eine Direktive noch eine Konstante noch eine 
Marke vor, so muß zwangsläufig eine Befehlszeile vorlie¬ 
gen. Das Programmstück von Zeile 10300 bis 10430 stellt 
den Modus und den Typ einer Befehlszeile fest und ver¬ 
zweigt in Zeile 10420 aufgrund des festgestellten Typs 
(Variable KM) in die entsprechenden Unterprogrammstücke. 


Zunächst wird die gefundene mnemotechnische Bezeichnung in 
der Tabelle gesucht. Damit ergibt sich der Typ der Anwei¬ 
sung zu KM=KM(K), wenn K die Nummer der gefundenen Be¬ 
zeichnung ist. Der Rest der Textzeile ist der Operand der 
Anweisung. Er wird an das Unterprogramm ab Zeile 14000 
übergeben, welches den Adressierungsmodus (Variable MO) 
bestimmt. Die Werte von KM und MO haben folgende Bedeu¬ 
tung : 


KM = 0 
KM = 1 
KM = 2 

KM = 3 

KM = 4 

KM = 5 


MO = -1 
MO = 0 

MO = 1 

MO = 2 

MO = 3 

MO = 4 

MO = 5 

MO = 6 

MO = 7 

MO = 8 

MO = 9 

MO = 10 


Der Befehl hat keinen Operanden 
Der Befehl hat einen 2-Byte-0peranden 
Der Befehl hat mehrere Adressierungs- 
möglichkeiten 

Der Befehl hat einen 1-Byte-Operanden 
und hat keinen Befehlscode (BYT-Befehl) 

Der Befehl hat einen 2-Byte-0peranden 
und hat keinen Befehlscode (WOR-Befehl) 

Der Befehl ist ein relativer Sprung und hat 
demnach einen 1-Byte-Operanden 

Kein Operand 

Unmittelbare Adressierung ( #0p ) 

Zero-Page-Adressierung 

Zero-Page-X-indiziert 

Zero-Page-Y-indiziert 

Absolute Adressierung 

Absolut X-indizierte Adressierung 

Absolut Y-indizierte Adressierung 

Indiziert-indirekte Adressierung 

Indirekt-indizierte Adressierung 

Operand ist Akkumulator 

Indirekte Adressierung 





Basic-Programm des Assemblers 


147 


Befehle ohne Operand 

Befehle ohne Operanden sind sehr einfach zu bearbeiten. Es 
braucht lediglich der Code des eigentlichen Befehls über¬ 
geben zu werden, was durch ein Unterprogrammaufruf ab Zei¬ 
le 12000 erfolgt. 


Absolute und indirekte Sprünge 

Entsprechend der Sprungart wird die Variable M auf 0 (ab¬ 
solute Sprünge) oder auf 1 (indirekte Sprünge) gesetzt. 
Zeile 11130 setzt den entsprechenden Code in die Variable 
C$, und der Rest des Programmstückes bis hin zur Zeile 
11160 wandelt den Operanden in eine hexadezimale Zahl um 
und ergänzt die Befehlszeile C$. 


Befehle Bit Operanden (keine Sprungbefehle) 

Analog den eben dargestellten Programmstücken wird hier 
wieder entsprechend dem Modus der hexadezimale Wert des 
Befehls in die Variable C$ geschrieben und anschließend 
die in hexadezimale Zeichen umgerechneten Operanden. 


Byte und Word 

Die beiden Befehle BYT und WOR sind Konstanten-Def i n itio- 
nen für ein Byte bzw. zwei Byte. Diesen Konstanten wird 
zunächst keine Bezeichnung zugeordnet, sondern nur ein 
Wert. Z.B. werden so Variablen definiert, z.B. mit 

’VARl: BYT $00‘ 


Relative Sprünge 

In dem letzten Stück des Unterprogramms ab Zeile 11500 
werden die relativen Sprünge behandelt, in dem auch hier 
wieder die Befehlszeile im Hexcode (C$>) mit dem entspre¬ 
chenden hexadezimalen Wert des Befehls und - als Operand - 
mit der Zahl der Bytes (im Hex-Code) besetzt wird, um die 
gesprungen werden soll. Diese Sprungart verringert die Re¬ 
chenzeit. Wenn nur relative Sprünge verwendet werden, kann 
der Objektcode beliebig im Speicher ohne Auswirkung ver¬ 
schoben werden. Ein weiterer Grund ist die Speicherplatz¬ 
ersparnis, da relative Sprünge nur um maximal 127 Bytes 
nach vorne bzw. 128 Byte zurückspringen können, und damit 
der Operand in einem Byte untergebracht werden kann. 
Wurde für relativen Sprünge eine Sprungweite größer als 
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der eben angegebene Bereich errechnet, so wird eine Feh¬ 
lermeldung ausgegeben. 


!========================================================! 

! ! 

! ZEILE ASSEMBLIEREN lOOOO - 11580 ! 

I ! 

!= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = ! 


! Variablen: 


Name 

! 

Typ ! 

Bereich 

! Bedeutung 

A 

! 

R ! 

0. . .255 

! Position von A$ 

A$ 

j 

P ! 

1 Zeichen 

! zu suchendes Zeichen 

AA$ 

! 

P ! 

Zeichenre ihe 

! zu suchende Zeichen 

AD 

! 

G ! 

0...65535 

! aktuelle Adresse 

AD$ 

! 

G ! 

' ' oder 2 Byte 

! Startadresse (L/H) 

C$ 

I 

A ! 

bis 6 Zeichen 

! assemb. Maschinencode 

ER 

! 

P ! 

0. . .E9 

! Fehlernummer 

Hl 

! 

H ! 

0 oder -1 

! logische Hilfsvariable 

HH 

! 

P ! 

0. . .65535 

! Wert für Hexzahl 

K 

i 

R/P ! 

0. . .K9 

! Nummer des Befehls 

KM 

! 

P ! 

0 ... 5 

! Typ des Befehls 

M 

! 

P ! 

0...10 

! Adressierungsart 

MO 

| 

R ! 

-1. . . 10 

! Adressierungsmodus 

SI 

! 

P ! 

1 oder 2 

! Anzahl Byte des Oper. 

T$ 

j 

E/P ! 

Zeichenre ihe 

! zu assemblier. Zeile 

T0$ 

! 

H ! 

Zeichenre ihe 

! Zeichenreihe bis '=' 

TN$ 

J 

P ! 

Zeichenreihe 

! Symbolname 

TV 

j 

P/R ! 

0. . .65535 

! Wert des Symbols 

TY 

J 

P/R ! 

0,1,2 

! Typ des Symbols 

u$ 

I 

A ! 

' ’ oder 'R' 

! 'R' wenn Operand noch 


I 

I 


! nicht definiert 

W 

I 

R ! 

0...65535 

! Wert des Doppelterms 

Felder 

( Array 

s) : 


Name 

! 

Dirnen. 

! Typ ! Bereich 

! Bedeutung 

KM 

J 

58 

! G ! 0 . . .5 

! Typ der Befehle 
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!========================================================! 

! ! 

! Unterprogra»Diaufrufe : ! 


in ! nach ! Zweck 


! 10030! 100 ! Blanks von T$ eliminieren ! 

! 10040! 700 ! Position von A$ in T$ ! 

! 10060! 100 ! Blanks von T$ eliminieren ! 

! 10070! 13000 ! Direktiven auswerten ! 

! 10090! 50 ! Position von A$ in T$ ! 

! 10130! 150 ! Blanks von T$ eliminieren ! 

! 10160! 15000 ! Doppelterm auswerten ! 

! 10180! 100 ! Blanks von T$ eliminieren ! 

! 10200! 18000 ! Symbol in Tabelle einfügen ! 

! 10220! 17000 ! Fehler registieren ! 

! 10230! 700 ! Position von A$ in T$ ! 

! 10270! 100 ! Blanks von T$ eliminieren ! 

! 10290! 18000 ! Symbol in Tabelle einfügen ! 

! 10310! 50 ! Position von A$ in T$ ! 

I 10320! 17000 ! Fehler registieren ! 

! 10340! 600 ! Check auf Mnemonic Keyword ! 

! 10360! 17000 ! Fehler registieren ! 

! 10380! 14000 ! Modus feststellen ! 

! 10400! 17000 ! Fehler registieren ! 

! 10410! 17000 ! Fehler registieren ! 

! 11010! 12000 ! C$ mit Code besetzen ! 

! 11130! 12000 ! C$ mit Code besetzen ! 

! 11150! 250 ! 4-stell. Hex-Zahl aus HH bilden ! 

! 11210! 12000 ! C$ mit Code besetzen ! 

! 11240! 200 ! 2-stell. Hex-Zahl aus H bilden ! 

! 11260! 250 ! 4-stell. Hex-Zahl aus HH bilden ! 

! 11300! 17000 ! Fehler registieren ! 

! 11320! 200 ! 2-stell. Hex-Zahl aus H bilden ! 

! 11410! 250 ! 4-stell. Hex-Zahl aus HH bilden ! 

! 11520! 12000 ! C$ mit Code besetzen ! 

! 11540! 17000 ! Fehler registieren ! 

! 11560! 200 ! 2-stell. Hex-Zahl aus H bilden ! 


! 


! Verzweigungen nach außen : ! 


in Ze ! nach ! Bedingung ! Bemerkung 


10070 ! RETURN! LEFT$(T$,1 )=“%’ ! Direktive 

10210 ! RETURN! '=' war in T$ ! Symbol eingefügt 

10320 ! RETURN! A NE 4 AND ! Kein Blank nach 


! LEN(T$) GT 3 ! Befehl 
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10330 

RETURN! 

10360 

RETURN! 

10390 

RETURN! 

10400 

RETURN! 

1 

10410 

! 

RETURN! 

10430 

STOP ! 

11020 

RETURN! 

11170 

RETURN! 

11220 

RETURN! 

11240 

RETURN! 

11280 

RETURN! 

11300 

RETURN! 

11340 

! 

RETURN! 

11430 

RETURN! 

11540 

RETURN! 

1 

11580 

! 

RETURN! 


T$= ' ' 

K=0 

PEEK(Q4) NE 0 

MO GE 

0 AND 

KM = 

0 

MO = 

-1 AND 

KM GT 

0 

KM GT 

5 

KM = 

0 

KM = 

1 

KM = 

2 AND MO = 9 

Hl 

KM = 

2 AND NOT Hl 

KM = 

3 AND 

W GT 

255 

KM = 

3 

KM = 

4 

H GT 

127 OR 

H LT 

-128 

KM = 

5 


Zeile abgearbeitet ! 
Ungültiger Befehl ! 
Fehler beim Fest- ! 
stellen des Modus ! 
Wenn KM=0 ; dann kein! 
Operand erlaubt ! 
Operand fehlt, ! 
obwohl nötig ! 
Wert von KM unmögl.! 
kein Operand ! 
OMP oder JSR-Befehl! 
Operand = Akku ! 
Ein-Byte-Operand ! 
Zwei-Byte-Operand ! 
Byte größer als 255! 

Byte reserviert ! 
Word reserviert ! 
Relativer Sprung ! 
zu weit ! 
Relativer Sprung ! 

===================i 


3.2.3 Variable mit hexadezimalem Code besetzen 

12000 REM * Cf MIT CODE BESETZEN * 

12010 C$=KC$ <K,M> 

12020 I FCf = " " T HEMER:=:C s OOSUB17000 
12030 RETURN 


In diesem kurzen Unterprogramm wird in der Variablen C$ 
der hexadezimale Befehlscode eingetragen. Dazu wird aus 
den in Kapitel 3.1 beschriebenen DATA-Statements lediglich 
der entsprechende Code aus der Variabein KC$ (K,M) über¬ 
nommen. Wurde kein Code gefunden, so wird eine Fehlermel¬ 
dung ausgedruckt. 


3.2.4 Direktiven auswerten 

13000 REM * KDIRECTIVEH RUSUDETEN * 

13020 G O SIJ B24000 

13030 GNDGÖTG13100,1320013300,13400,13500,13600 
13040 E R=2 s G 0 S U B17000 
13060 RETURN 
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Zunächst wird in der Variablen AA$ der Name der Direktive 
(der auch mehr als drei Zeichen enthalten kann) abgelegt 
und mit dem Unterprogramm ab Zeile 24000 die Nummer der 
Direktive bestimmt. Aufgrund dieser Nummer wird anschlies¬ 
send verzweigt. Wenn nicht verzweigt wird, so wird eine 
Fehlermeldung ausgegeben. 


%0RG 


13100 REM *** KORG DIRECTIVE .+:** 

13105 I FRD*>"" THEHER=2G:GOSUB17000sRETURN 

131.10 T $=M I ( T T . 5 

13115 KM=4 

131 £ 0 G O SIJ Ei 10 0 

13125 GOSUB16000 

13130 I FF'EEK < 04 > THENRETURN 

13135 RD=N 

13140 H H = IH T C R D /256 !:■ 

13145 H=RD-256*HH 
13150 RDT = CHRT < H +CHRF < HH > 

13155 F'F' I MT#3.. RDT ; 

13160 SR=RD 
13165 RETURN 


Die ersten zwei Byte der Objekt-Datei werden in der Va¬ 
riablen AD$ abgespeichert. Wenn schon eine Startadresse 
definiert wurde, so wird ein Fehler ausgegeben. Sonst wird 
in den Zeilen 13110 bis 13135 der Operand ausgewertet und 
in der Variablen AD abgelegt. In dem restlichen Programm¬ 
stück wird die Dezimalzahl noch in zwei Zeichen zerlegt, 
die jeweils das Lower und Higher Byte angeben. An dieser 
Stelle sei noch angemerkt, daß das Speichern in der Ob¬ 
jekt-Datei (auf Floppy) jeweils in zwei zusammengefaßten 
Hexadezimalziffern zu einem Zeichen gespeichert wird. Z.B. 
wird hexadezimal 'FF' als CHR$ (255) gespeichert. 

Als Abschluß wird noch in der globalen Variablen SA der 
Wert der Startadresse festgehalten, um ihn im weiteren 
Programm verwenden zu können. 


%END 

1320O REM m* KEHD DIRECTIVE :+:+* 
13210 13=320 
13220 RETURN 
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In dieser Zeile wird lediglich der Eingabestatus IS als 
Merker für das Ende der Quelldatei gesetzt. 


%INO 


133Q0 REM :+:++. KI MO DI EC TI VE +** 

13305 IFRD*>""THENER=20:GÖSUB17000sRETURN 
13310 KM=4 

1 33 15 I HF'UT " aSTFIRTflDRESSE 1HHHI" T* 

13320 IFT*=" "TUEN13315 
13325 GOSUB16000 
13330 I FF'EEK C 04 > TH EH RE TURIN 
13335 HD=W 

13340 HH=IMT < HD/256 > 

13345 H=flD-256#HH 
13350 HÜ*=CHR*CH >+CHR*<HH> 

13355 PR I MT#3HD* ; 

13360 Sfl=HD 
13365 RETURN 


Dieses Programmstück funktioniert analog der oben be¬ 
schriebenen %ORG-Direktive, außer daß die Startadresse 
nicht als Operand in der Quelldatei steht, sondern vom 
Bildschirm eingelesen wird. 


%D UP 

13400 REM *** KDI.JP DIRECTIVE *** 

13404 T*=M ID* C TS .. 5 ) 

134ÖS fl*=" .. " SGOSUB700 

13412 IFR=0THENER=3 : GOSUB17000:RETURN 
1 34 1 6 T3*=MID*CT*..H+ 1 > 

13420 T*=LEFT* C T*H— 1 > 

13424 81=2 
13428 KM=@ 

13432 G 0 S U B15000 
13436 HN=W 
13440 T*=T3* 

13444 G0SUB10000 
13443 IFflN=0THENC*=""RETURN 
13452 IFHN=1THENRETURN 
13456 CC*="":H=0 
13460 IFH>=LENC C* >THEN13476 

13464 H H *=MID * C C * , H +1 .2 > : G 0 3 U El: 4 0 8 : C C *=C C *+C H R * C H H ;■ 
13468 H=fi+2 
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13472 GOT013460 
13476 FÜR I = 1TORN—1 
13480 P RI NT# 3 , C C * 

13484 RD=hD+LE:H < Cö > 
13488 NEKT 
13432 RETURN 


Die %DUP-Direktive hat die Form: 

%DUP Anzahl, Anweisung 

Deshalb wird im Text hinter dem Wort ’%DUP’ ein Komma ge¬ 
sucht. Wenn keines vorhanden ist, wird ein Fehler gemel¬ 
det. Der Text wird dann zerlegt in einen Teil vor dem 
Komma (T$) und den Teil dahinter (T3$). T$ wird an das 
Unterprogramm zum Auswerten eines Doppelausdrucks über¬ 
geben und das Ergebnis in der Variablen AN gespeichert, 
die dann die Anzahl der Wiederholungen enthält. T3$ wird 
nun in T$ übertragen und dem Unterprogramm zum Assemblie¬ 
rer einer Zeile übergeben, womit in C$ der fertig assemb- 
lierte Code der Anweisung steht. In C$ ist der Code jedoch 
in hexadezimaler Form enthalten, so daß er noch in die Va¬ 
riable CC$ als Zeichenreihe kopiert wird. Dieser Code wird 
(AN-l)-mal in die Objektdatei geschrieben, wobei jeweils 
der Adresszähler um die Länge des Codes CC$ erhöht wird. 
Das Code wird auf jeden Fall an das aufrufende Unterpro¬ 
gramm zurückgegeben, wo nachher die letzte Speicherung er¬ 
folgt. 

Das Unterprogramm ist sowohl aufrufendes Programm, es wird 
aber auch von hier aufgerufen. Dies nennt man einen indi¬ 
rekt rekursiven Aufruf. Man muß bei einer derartigen Pro- 
grammierwe ise darauf achtgeben, daß die Parameter nicht 
durch einen neuen Aufruf des Unterprogramms überschrieben 
werden und daß der Unterprogramm-Stapel nicht überläuft. 
Im vorliegenden Fall muß der Anwender dafür sorgen, daß 
die Anweisung, die wiederholt werden soll nicht selbst 
eine Direktive ist. Der Fall einer weiter verschachtelten 
Rekursion wird dadurch automatisch vermieden. 
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%ASC 


13500 REM *** TIRSC DIRECT.[VE *** 

13505 Ti-4'11DT TT5 > 

13510 RT=CHRT<34 > :GOSUE700 
13515 IFR=0THEHER=3 :GOSUB17000sRETURN 
13520 TT=M I DT < TT Fl+1 > 

13525 R T=CHRT C 34 > : G0SUB700 
13530 I FRTHENTT=LEFTT C TTR-1 > 

13535 CT="" 

13540 I FTT=" " THENRETLIRH 

13545 H=RSC C RI GHT'T < TTLEN < TT > > s GOSUB200 
13550 CT-HT+CT 
13555 TT=LEFTT C TT.. LEN < TT > -1 > 

13560 IFLENCCT> OSTHEN13540 
13565 PRI NT#3 , TT 
13570 RD--RD+L.EN C TT> 

13575 RETURN 


Die %ASC-Direktive wird benützt, um Text in die Objekt¬ 
datei einzufügen. Die Syntax des Befehls ist: 

%ASC "Text" 

Im Operanden werden zwei “-Zeichen gesucht, und der dazwi¬ 
schenliegende Text steht anschließend in T$. Die letzten 
drei Zeichen werden in Hexadezimalziffern umgewandelt und 
als Variable C$ dem aufrufenden Programm zurückgegeben, 
der Rest des Textes wird direkt in die Objektdatei ge¬ 
schrieben, wobei natürlich der Adresszähler entsprechend 
erhöht wird. 


%INCLUDE 

13600 REM * KINCLIJDE—DIRECTIVE $ 

13605 R T --= C H R T < 3 ■4 > : G Ü SIJ E: 7 0 0 
13610 I FR=0THENER=24 : GOSUB 17000 :• RETURN 
13 615 T T=MID T < T T , R +1 , 17 > 

13620 RT=CHRT C 34 :GOSIJB70@ 

13625 IFR=0THENER=24:GOSUB17000 : RETURN 
1363O TT=LEFTT<TT,R-1> 

13635 0PEN636 , TT 
13640 G 0 S IJ B25000 

13645 IFDSTHENER=23:GOSUB17000:CLOSES:RETURN 
1 3650 FF'=6 : RS= I S 

13655 IF F T=2 T H E N G O S IJ B10 : G 0 S U B10 
13660 RETURN 





Basic-Programm des Assemblers 


155 


Mit der %INCLUDE-Direktive kann eine andere Quelldatei in 
den Quelltext eingebunden werden. Dazu wird der Name der 
einzufügenden Datei bestimmt, diese Datei mit der logi¬ 
schen Nummer 6 geöffnet und die Variable FP ebenfalls auf 
6 gesetzt, womit erreicht wird, daß nun aus dieser Datei 
anstatt aus der normalen Quelldatei gelesen wird. Der Ein¬ 
lesestatus der normalen Quelldatei muß in AS gesichert 
werden, weil die %INCLUDE-Direktive ja die letzte Anwei¬ 
sung des Que11programms sein könnte. 

Im Unterprogramm ab Zeile 22000 wird dafür gesorgt, daß 
die Eingabevariable FP wieder auf den Normalwert 2 gesetzt 
wird, wenn die einzufügende Datei zu Ende ist. 


DIREKTIVEN 

AUSWERTEN 

13000 - 13660 

Variablen: 

Name 

J 

Typ ! 

Bereich ! 

Bedeutung 

A 

j 

R/H ! 

0 . . .255/0...65535! 

Position / Zäh 1er 

AD 

| 

G ! 

0 . . .65535 ! 

aktuelle Adresse 

AD$ 

! 

G ! 

2 Zeichen (Byte) ! 

Startadresse kodiert 

AN 

! 

H ! 

0...65535 ! 

Anzahl Wiederholungen 

AS 

! 

G ! 

0...255 ! 

Alter EingabeStatus 

C$ 

! 

G ! 

Zeichenreihe ! 

Asöemblierter Code 

cc$ 

| 

H 1 

Zeichenreihe ! 

Assemblierter Code 

DS 

! 

R ! 

0. .74 ! 

Disk-Status 

ER 

! 

P ! 

0..E9 ! 

Fehlernummer 

FP 

| 

G ! 

2,6 ! 

Log. Nr. Eingabedatei 

FT 

! 

G ! 

1,2 I 

Typ d. Eing.dat. (s,p) 

H 

| 

H/R/P! 

0...255 ! 

Lower-Byte Startadr. 

HH 

! 

H/R ! 

0...255 ! 

Higher-Byte Startadr. 

H$ 

! 

P/R ! 

2 Zeichen ! 

Lower-Byte Startadr. 

HH$ 

] 

P ! 

4 Zeichen ! 

Higher-Byte Startadr. 

I 

! 

H ! 

0...AN-1 ! 

Laufvariable 

IS 

! 

A ! 

0...320 ! 

Input-Status 

KM 

! 

P ! 

0. . .5 ! 

Typ des Befehls 

SA 

| 

G ! 

0 . . .6 5535 ! 

Startadresse 

SI 

j 

P ! 

0,1,2 ! 

Größe des Operanden 

T$ 

! 

P ! 

Zeichenreihe ! 

Ope rand 

T3$ 

! 

H ! 

Zeichenreihe ! 

zu wiederh. Befehl 

W 

! 

R ! 

0 . . .65535 ! 

Wert von Doppelausdr. 
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Dateien : 


# ! Name ! T ! 

Bemerkung 

3 ! F$+". . . . “ ! p ! 
6 ! T$ !p/s! 

Vorläufige Objektdatei 

Einzubindende Quelldatei 

Unterprograanaufrufe : 


i n ! 

nach ! 

Zweck 

13020! 

24000 ! 

Nummer der Direktive feststellen 

13040 ! 

17000 1 

Fehler registrieren 

13105! 

17000 1 

Fehler registrieren 

13120! 

100 ! 

Blanks eliminieren 

13125! 

16000 1 

Einzelausdruck auswerten 

13305! 

17000 ! 

Fehler registrieren 

13325! 

16000 ! 

Einzelausdruck auswerten 

13408! 

700 ! 

Zeichen suchen 

13412! 

17000 ! 

Fehler registrieren 

13432 ! 

16000 ! 

Doppelausdruck auswerten 

13444! 

10000 ! 

Zeile assemblieren 

13464! 

400 ! 

! Wert von Hexzahl bestimmen 

13510! 

700 ! 

Zeichen suchen 

13515! 

17000 1 

! Fehler registrieren 

13525! 

700 ! 

Zeichen suchen 

13545! 

200 

! 2-stellige Hexzahl bilden 

13605! 

700 ! 

Zeichen suchen 

13610 ! 

17000 ! 

! Fehler registrieren 

13620! 

700 ! 

Zeichen suchen 

13625! 

17000 ! 

! Fehler registrieren 

13640! 

25000 ! 

Disk-Status-Werte bestimmen 

13645! 

17000 ! 

! Fehler registrieren 

13655! 

10 ! 

Ein Zeichen aus Datei #FP lesen 

Verzweigungen 

nach außen : 


in Ze 

! nach ! 

Bedingung 

! Bemerkung 

13060 

! RETURN! 

D=0 

! keine Direktive 

13105 

! RETURN! 

! ! 

AD$ GT "" 

! Startadresse 
! bereits definiert 

13130 

! RETURN! 

PEEK(Q4) NE 0 

! Fehler im Einzel- 
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_ 

! 

! 


! term ! 


13165 

j 

RETURN! 

D = 1 

! Ende von %0RG ! 


13220 

J 

RETURN! 

D =2 

! Ende von %END ! 


13305 

| 

! 

RETURN! 

j 

AD$ GT "■ 

! Startadresse ! 

! bereits definiert ! 


13330 

j 

J 

RETURN! 

! 

PEEK(Q4) NE 0 

! Fehler im Einzel- ! 

! term ! 


13365 

| 

RETURN! 

D = 3 

! Ende von %IN0 ! 


13412 

j 

RETURN! 

A=0 

! Kein ",“ bei %DUP ! 


13412 

j 

RETURN! 

AN=1 

! Anzah1=1 bei %DUP ! 


13492 

| 

RETURN! 

D=4 

! Ende von %DUP ! 


13515 

| 

RETURN! 

A=0 

! Kein “ bei %ASC ! 


13540 

1 

RETURN ! 

r$="" 

! Text leer ! 


13575 

j 

RETURN! 

D=5 

! Ende von %ASC ! 


13610 

! 

RETURN! 

A=0 

! Kein *," ! 


13625 

i 

RETURN! 

A=0 

! Kein ", * ! 


13645 

j 

RETURN ! 

OS NE 0 

! Diskfehler bei OPEN! 


13660 

1 

RETURN! 

D = 6 

! Ende von %INCLUDE ! 


3.2.5 Modus und Wert des Operanden feststellen 


14000 REH * HÜDE FESTSTELLEN * 

14010 REH MODE HO : -1=NÜ OPER.; ©=# IJSW. S. ZEILE 54030 

14020 REH HÜDE HO = 10 s IHDIREGT 


14030 
14040 
14050 
14060 
14070 
14080 
14O90 
14100 
14110 
14120 
14130 
14140 
14150 
14160 
14 170 
14180 
14190 
14200 
14210 
14220 
14230 


R EH 812E: SI = 1 -> BVT E S1=2 -> W0RD 

GÜSUB100 

I FT* = " " THEHHO.--— 1 : RET URN 

I FT*= " H " THENH0=:9 «RETURN 

FlFl*=GHR*C 34 + " # C > , . 0 ! " : GOSUB800 

I FR < 2 :> <>- C R < 3 > >0 THENER=4 : GO SU E 1 17000 : RETURN 

L=LENCT*> 

XV=CRIGHT*CT*, 1 ><>"X"RHDRIGHT*CT*, 1 >O'■ V"' > 

I F Fl C 4 > THENI FR C 5 ') >0ORR C 4 > OL-1ORXVTHEN14410 
I FR C 5 TUEN I FR C 4 > >GORR C 5 > OL-1 ORXVTHEN 14410 
I FR C 1 > > 1 ORR C 6 >> 1 ORR C 7 > > 1 THENER=5 ::GOSUB1 7000 : RETURN 
IFRC1>THENI FR C2>+R C3 >+flC4>+RC5 >t R <6>+R C7 > TUEN14410 
I FH C6>THENIFRC7;THEN14410 
I FR C 7THEN I FR C 6 > T HEN 14410 

I F R C 6 > +R C 7 > TUEN I FR C 1 > +R C 2 +R C 3 > THEN 1441 ö 

I FR C1>THENHO=0 : T*=HID*CT*,2 >:GOT O14440 

I FR I GHT* C T * , 3 > = " , X > " THENH0=7 :: GOTO 14430 

IFRIGHT*CT*,3 > = ".X>"THENH0=7sGOTO14430 

IFR IGHT* <T*,3 > = ">,V"THENHO=3:GOTO1443G 

IFRIGHT*<T*,3 >-">.V"TUEHHO=8:GOTO 14430 

I FR IGHT* C T* , 1 > = " > " THEHHO--: 10 : T*=H ID*C T* , 2 , L-2 > : SI =2 


: G0SLIB15000 : RETI.IRN 
















158 


Kapitel 3 


14240 ZP=Ö 

14260 I FR < 6 > THEN2P-- 1 : T$--M I Dl- < TI2 > : L=L— 1 :: SI = 1 
14 270 IF R < 7 > THE l -l 2 P=2 : T $=NID !•' < T t 2 > : L=L..1 

14280 1 FR 1GH T $ T $■ . 2 ■ = " X " T H E l -l M0 =5 s G 0 SU Ei 1437 0 : G O T01434@ 

14290 I FR I GUT* < TI... 2 > = " . X " THET-IM0--5 s GOSUB14370 : GOTO 14840 

14300 I FRIGHT* C.T T . 2 > = " .. V " THE.I-IM0=6 :GOSUB 14370 :GOTO 14340 

14810 I FR I GUT* C T* „ 2 > = " . V " TH EH MO=6 :: GOSUB 1 4370 : GOTO 14340 

14320 M0=4 

14330 G O S U Ei 14330 

14340 IFPEEK<04>THEHRETURN 

14350 I F r N <256 fl M D 2 P < 2 T HEMM 0=M 0—3 

14360 RETURN 

14370 T $=L E f T1 < T1-..L - 2 > 

14380 IF2P=1THENM0=M0~3 

14 330 G 0 S U Ei 15000 

14400 RETURN 

14410 E R = .10 : G 0 S I.J Ei .17000 

14420 RETURN 

14 430 T1=MID $ < T T2 , l_—4 > 

14440 SI=1 
14450 G 0 S U B15000 
14460 RETURN 

Dieses Unterprogramm dient letztendlich zum Besetzen der 
Variablen MO ; SI und W, in welchen der Adressierungsmodus 
der Anweisung, sowie die Größe und der Wert des Operanden 
festgehalten werden. Nicht festgestellt wird in diesem 
Unterprogramm, ob der jeweilige Befehl auch diesen Modus 
kennt. 

Die Bedeutungen der verschiedenen Werte von MO sind im 
Kapitel 3.2.2 tabellarisch aufgeführt. Der Modus wird 
aufgrund von auftretenden Sonderzeichen und der Größe der 
Operanden festgestellt. Die Größe des Operanden (Sl) kann 
folgende Werte annehmen: 

SI=1 Operanden bis 255 (1-Byte-Operanden) 

SI=2 Operanden bis 65535 (2-Byte-Operanden) 

Ist der Operand eine leere Zeichenreihe, so wird MO mit -1 
besetzt , ist der Operand ein 'A‘ wird MO mit 0 besetzt. 
In beiden Fällen wird das Unterprogramm sofort verlassen. 

Die Sonderzeichen werden mit Hilfe des Unterprogramms ab 
Zeile 800 lokalisiert. Die Zeilen 14080 bis 14160 enthal¬ 
ten diverse Prüfungen auf die Richtigkeit der Syntax (sind 
Klammern richtig gesetzt,...). 

Eine wichtige Bedeutung hat die Variable ZP. Hier wird 
festgehalten, ob durch ein Sonderzeichen im Operanden die 
Zero-Page oder die absolute Adressierung erzwungen wird. 
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Die Variable wird nur besetzt, wenn der Modus durch be¬ 
stimmte Sonderzeichen-Kombinationen (z.B. “,X)") noch 

nicht ermittelt wurde. Es bedeuten: 

ZP=0 Zwischen Zero-Page- und absoluter Adressierung kann 

allein aufgrund der Größe des Operanden entschieden 
werden. 

ZP=1 Das erste Zeichen des Operanden ist ein 'Klammer¬ 
affe'. Dann kann nur Zero-Page Adressierung ausge¬ 
wählt werden. Ist der Operand aber doch größer als 
255, so wird später eine Fehlermeldung ausgegeben. 
ZP=2 zeigt ein Rufzeichen an der ersten Stelle im 

Operanden an. Dadurch wird die absolute Adressierung 
erzwungen. Das ist manchmal notwendig, wenn man in 
der Zero-Page Y-indiziert arbeiten möchte, der Befehl 
diese Adressierungsart jedoch nicht kennt. 

Mit diesen Informationen kann in jedem Fall die zugehörige 
Adressierungsart bestimmt werden. Details hierzu entnehmen 
Sie bitte dem Listing. 


Mode 

feststellen 

14000 - 14460 

Variablen: 



Name ! 

Typ 

! Bereich 

! Bedeutung 

A ! 

R 

! 0...255 

! Position von A$ in AA$ 

A$ ! 

P 

! 1 Zeichen 

! zu suchendes Zeichen 

AA$ ! 

P 

! Zeichenreihe 

! zu suchende Zeichen 

ER ! 

P 

! 0...E9 

! Fehlernummer 

L ! 

H 

! 0...79 

! Länge von T$ 

MO ! 

1 

j 

! 

! 

! 

! 

! 

! 

1 

! 

A 

! -1...10 
j 
! 

! 

! 

! 

! 

! 

! 

1 

! 

! Modus: 

! -1 = kein Operand 
! 0 = unmittelbar 

! 1 = Zero-Page 

! 2 = Zero-Page,x 

! 3 = Zero-Page,y 

! 4 = absolut 

! 5 = absolut,x 

! 6 = absolut,y 

! 7 = vor -indiziert 

! 8 = nach-indiziert 

! 


! 

! 9 = Akkumulator 
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! 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

! 10 = indirect 

Q4 

! G 

49208 

! Adr. Feh 1eranzah1ze1le 

SI 

! A 
! 

1 oder 2 

! Anzahl Bytes des 
! Operanden 

T$ 

!E/P/A 

Ze ichenre ihe 

! Operand 

W 

! R 

0. ..6 5535 

! Wert des Doppelterms 

XY 

! H 
! 

0 oder -1 

! XY=0,wenn letztes Zei. 

! d. Oper, 'x' od. 'y' 

ZP 

! H 
! 

! 

! 

0. . .2 

! Zeropage-Option 
! 0=keine Vorgabe 
! l=Vorgabe : Zeropage 
! 2=Vorgabe : Absolute 


! Felder (Arrays): 



! Typ ! Bereich 


! R ! 0...255 
i j 


! Bedeutung 


! Positionen der ! 
! Sonderz. aus AA ! 


! Unterprogra»maufrufe : 

i 


in ! nach ! Zweck 


! 14040! 100 ! Blanks von T$ eliminieren 

! 14070! 800 ! Positionen von Zeichen in T$ bestimmen 

! 14080! 17000 ! Fehler registrieren 
! 14130! 17000 ! Fehler registrieren 
! 14230! 15000 ! Doppelausdruck auswerten 
! 14390! 15000 ! Doppelausdruck auswerten 
! 14410! 17000 ! Fehler registrieren 
! 14450! 15000 ! Doppelausdruck auswerten 


! Verzweigungen nach außen : 


! in Ze ! nach ! 


! 14050 ! RETURN! 
! 14050 ! RETURN! 
! 14080 ! RETURN! 
! ! ! 
! 14130 ! 17000 ! 


Bedingung 


T$=" ■ 

T$="A" 

a(2) NE 

-(a(3) GT 0) 
a ( 1) GT 1 OR 
a(6) GT 1 OR 


! Bemerkung 


! Kein Operand 
! Operand = Akku 
! Klammern nicht 
! paarweise 
! Immediate- bzw. 
! Zeropagezeichen 
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| 

a(7) GT 1 ! 

nicht an 1.Stelle 

= I 

! 

14230 

RETÜRN! 

RIGHT$(T$,1)=")" ! 

Indirekte Adress. 


14340 

RETURN! 

PEEK(Q4) NE 0 ! 

Fehler 


14360 

RETURN! 

! 

Ende 


14400 

RETURN! 

div. Möglichkeiten! 

Fehlernummer 10 


14460 

RETURN! 

! 

Ende 



3.2.6 Doppelter« auswerten 


15000 REM * DOPPELflüSDRUCK flIJSWERTEN * 

15010 RfiT=CFIRT < 34 > + " # < > . @ ! +-*,-'T •' " : GOSUB800 
15020 I FR C 1 > +fl C 2 > +R < 3 > +R < 4 !> +fl C 5 } +R < 6 > +fl C 7 > TUEN 15220 
15030 R=— < R < 8 > >0 > - < R < 9 >>0 > - < R <! 10 }>0 > — (' R <; 1 1 ) >0 > 

15040 IF fl=0 T H E N G 0 3IJ Ei 16000 : G 0 T015200 
15050 IFR>1THEHER=12:GOSUB17000sRETURN 
15060 R-..R <: 8 > +R < 9 > -i-R < 10 > + fl < 11 J 
15070 T1 *=LEFT* C TT , fl-1 :> 

15080 T2T=MI DT CTT,fl+1> 

15090 TT=T1T 
15100 G O S U B16000 
15110 W1=H 
1512 0 TT=T2T 
15130 G 0 S IJ B16000 
15140 H2=W 

15150 I FF'EEK < Q4 > THENRETURN 
15160 I FR < 8 'j THENW=W 1+W2 
15170 I FR C 9 > THENW=W 1 -412 
15180 I FR C 10 > THEHW=W 1 *112 
15190 I FR 1 1 1 > THENH= I NT < W1,412 > 

15200 I FW>=256tS I THENER= 13 s GOSIJB17000 s RETURN 

15210 RETURN 

15220 E R = 10 : G 0 S IJ B17000 

15230 RETURN 


Unter Doppelterm verstehen wir beim Assembler Terme, die 
aus zwei Operanden und einer Verknüpfung (+,-,*,/) beste¬ 
hen. In diesem Unterprogramm selbst werden Doppelterme 
ausgewertet. Oedoch werden können auch einzelne Terme aus¬ 
gewertet werden, da am Beginn eine entsprechende Verzwei¬ 
gung zu dem Unterprogramm ab Zeile 16000 vorhanden ist. 

In Zeile 15010 werden die Positionen der Sonderzeichen 
bestimmt. Folgende Zeichen dürfen nicht auftreten: ", #, 
(, ), Komma, ., Klammeraffe, !. Wenn eines dieser Zeichen 
im Doppelausdruck enthalten ist, wird eine Fehlermeldung 
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ausgegeben, ebenso, wenn mehr als ein Verknüpfungszeichen 
auftritt. 

Wenn kein Sonderzeichen erscheint, liegt ein Einzelaus¬ 
druck vor, das entsprechende Unterprogramm wird aufgeru¬ 
fen, und es wird zum Ende des Unterprogramms verzweigt. 

Zuerst wird der Doppelausdruck zerlegt. Die Variablen T1$ 
(linker Teil) und T2$ (rechter Teil) beinhalten an¬ 
schließend die durch das Sonderzeichen getrennten Text¬ 
teile. Beide Ausdrücke werden durch Aufrufen des Unter¬ 
programms für Einzelausdruck auswerten getrennt behandelt. 

In den Zeilen 15160 bis 15190 werden die eigentlichen Ver¬ 
knüpfungen durchgeführt, wobei die in den Variablen W1 und 
W2 festgehaltenen Dezimalwerte der Operanden verwendet 
werden. Die Division wird als ganzzahlige Division ausge¬ 
führt. 


Doppelausdruck auswerten 

15000 - 15230 

! 

! 

! 

Variablen: ! 

! 

1 

Name 

! 

Typ ! 

Bereich 

! Bedeutung 

! 

A 

! 

H ! 

0.. .255 

! Position des Verküpf- 

! 


! 

! 


! ungszeichens 

I 

AA$ 

! 

P ! 

Ze ichenre ihe 

! zu suchende Zeichen 

1 

ER 

! 

P/R ! 

0. . .E9 

! Fehlernummer 


SI 

! 

E ! 

1 oder 2 

! Anzahl Bytes des 



1 

! 


! Operanden 


T$ 

! 

E/P/A! 

Ze ichenreih e 

! Operand 


TIS 

| 

H ! 

Zeichenreihe 

! Erster Term 

1 

T2$ 

J 

H ! 

Ze ichenre ihe 

! Zweiter Term 

! 

W 

1 

R/A ! 

0 . . .65535 

! Wert des Einzelterms 

! 


! 

! 


! Wert des Doppelterms 

! 

W1 

! 

H ! 

0 ... 65535 

! Wert des 1.Terms 

! 

W2 

! 

H ! 

0 . . .65535 

! Wert des 2.Terms 

j 

= 1 
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Felder 

(Arrays): 

_ ___ | 

Name ! 

Dirnen. ! Typ ! Bereich 

! Bedeutung ! 

__ __i 

A ! 

! 

20 ! R ! 0...255 

! | 

! Position jedes ! 

! Sonderz. von AA$! 

1 

Unterprogramaufrufe : ! 

i n ! 

nach ! Zweck 

I 

15010! 
15040 ! 
15050! 
15100 ! 
15130! 
15200! 
15220! 

800 ! Positionen von Zeichen in T$ bestimmen ! 
16000 ! Einzelausdruck auswerten ! 
17000 ! Fehler registrieren ! 
16000 ! Einzelausdruck auswerten ! 
16000 ! Einzelausdruck auswerten ! 
17000 ! Fehler registrieren ! 
17000 ! Fehler registrieren 

Verzweigungen nach außen : ! 

in Ze 

! nach ! Bedingung ! 

Bemerkung 

15050 

15150 

15210 

15230 

! RETURN! A GT 1 ! 

! RETURN! PEEK(Q4) NE 0 ! 

! RETURN! ! 

! RETURN! A(l...7) NE 0 ! 

! ! ! 

Mehr als 1 Operator 
Fehler 

Ende 

Falsches Sonderz. 
im Doppelterm 
— 


3.2.7 Einzelausdruck auswerten 

16006 REM * EIN2ELRUSDRUCK AUSWERTEN * 

16 @ 1 0 G 0 SIJ B10 0 
16020 HW--0 

1 6030 I FLEETS < TS , 1 > = " < " THENHW= 1 s TS=M I DS < TS ,■ 2 > 

16040 IFLEFTS < TS1 > ='' > "THENHW=2 : TS=MIDS < TS , 2 > 

16050 IFTS = " S " THENW=RD :: GOTO 16510 

16060 IFLEFTS < TS , 1 > = " V. " THE NT S=| v | I DS < TS.. 2 > : GOTO 161 10 
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16070 IFLEFTT C Ti 1 > C> " T" THEN16150 
16 0 S 0 TT == MID T T T , 2 > 

16090 I FLEH < Ti > <5THE. r N H H T=TT : GOSUB400 : W=HH : GOTO 16510 

16100 1 FLEH •; TT ) OSTHEHER= 14 : GOSUB17000 :RETURN 

16110 BBT=TT 

16120 GOSUB23O00 

16130 W=BB 

1614 0 G 0 T 016510 

16150 I FR SC < Ti> >=48ANDASC C TT > <=5 7 T H EI -IM=V R L.. < TT > : GOTO 16510 
16 160 TT=LEFTT C TT+SF'T... 8 > 

16170 T H T=T T : G 0 SIJ B500 :H=T V 
16180 IFTVTHEH16510 
16190 Llfl=RD+1 
162O0 IJNT=TT 

16210 0N K M G 0 T0 16250 , 16 3 00 1 6 37 0 , 16400 ... 164 3 0 
16220 EER= 16 : GOSUB 17000 
16230 UT=0 
16240 G 0 T016460 

16250 I FMO= 10RMO=4THEHIJT=7 :GOTO 16450 
16260 I FMO= 10THEHUT ==6 : GOTO 16450 
16270 ER=6:GOSUB17000 
16280 IJT=0 
16298 G 0 T01646O 

16300 IFM0=0THEHUT=1 : GOTO16450 

16310 IFN0< 4 T H E NIJT=3 : GOTO 16450 

16320 IF M 0 <=6 T H E N IJ T =5 : G 0 T016450 

16330 IFM0<=8THENUT=4 : GOTO 16450 

1634 O E R=6 : G 0 S U B1 700O 

16350 IJT=0 

1636O G 0T 016460 

16370 UT=1 

16380 IJR=RD 

1639O G 0 T016450 

16400 IJT=2 

16410 UR=RD 

16420 G 0 T016450 

16430 UT=8 

16440 G 0 T016450 

1645O G 0 S U E: 19000 

16460 IJT="R" 

16470 14=32768+128: REI-I DEFAULT WERT FUER ADRESSEN T808O 
16480 IFUT=1ORUT=30RUT=4THEHI4:=128 :REM DEFWERT FUER BVTEW. 
16490 IFUT=8THENW=AD+2:REM DEFWERT FUER BRAUCHES 
1650O REM 

16510 I FHI4= 1 THEHW=W-256* I NT < 14/256 > 

1652O 1F H W=2 THEN W =1 NT < 14/256 > 

16530 RETURN 
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Zunächst werden in dem Unterprogramm zum Auswerten eines 
Einzelausdrucks auch wieder die führenden und folgenden 
Leerzeichen abgeschnitten. Wie bereits im letzten Kapitel 
erwähnt, wird dieses Unterprogramm bei Doppeltermen auch 
ausgewertet, dann jedoch für jeden Teil des Terms ge¬ 
trennt. 

Wenn der Term mit einem Kleiner- oder einem Größerzeichen 
beginnt, so darf nur das Low-Byte oder das High-Byte des 
Wertes als Ergebnis zurückgegeben werden. Zu Beginn des 
Unterprogramms wird deshalb der Merker HW (=Halbwort) 
gesetzt. Folgende Werte sind möglich: 

HW=0 Wert ist Wert des gesamten Terms 

HW=1 Wert ist Low-Byte des Termwertes 

HW=2 Wert ist High-Byte des Termwertes 

Wenn der Einzelterm nur aus einem besteht, so wird die 

Adresse der aktuellen Programmzeile als Wert herangezogen. 
Liegen hinter dem noch mehr Zeichen vor, so steht dort 

entweder ein hexadezimaler oder ein binärer Ausdruck. Ob 
hexadezimal oder binär, ergibt sich aus der Länge des dem 
^-Zeichen folgenden Ausdruckes: acht weitere Zeichen be¬ 
deuten immer binär; bis vier Zeichen immer hexadezimal. 
Ist das erste Zeichen ein '%' so wird ebenfalls binär 
ausgewertet. 

Wenn der Operand eine Ziffer ist, so wird dessen Wert ein¬ 
fach über die Funktion VAL bestimmt. In allen anderen Fäl¬ 
len, liegt mit Sicherheit ein Symbol vor, das dann im wei¬ 
teren in der Symboltabelle herausgesucht wird. 

Wenn das Symbol in der Tabelle gefunden wurde, so wird der 
dort gespeicherte Wert der Variablen W zugeordnet, und das 
Unterprogramm verlassen. 

In den Zeilen 16190 bis 16490 erfolgt die Behandlung für 
Undefinierte Symbole. Es tritt öfters der Fall ein, daß 
ein Symbol an der Stelle, wo es angesprochen wird, noch 
nicht definiert ist, z.B. bei Vorwärtssprüngen. Der As¬ 
sembler kann natürlich den wahren Wert des Symbols nicht 
in die Objektdatei eintragen, andererseits muß er den 
übrigen Quelltext weiterverarbeiten können. Dieses Problem 
der Vorwärtsverweise wird im vorliegenden Assembler fol¬ 
gendermaßen gelöst: 

Qedes noch nicht definierte Symbol wird in eine Tabelle 
der Undefinierten Symbole eingefügt. Anstatt des wahren 
Wertes wird ein Vorgabewert (engl.: default value) in die 
Objektdatei eingetragen. Im Protokoll wird ein "R“ einge¬ 
tragen, womit dem Leser des Protokolls angezeigt wird, daß 
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die in der Spalte 'Code 1 angegebenen Werte nur Vorgabewer¬ 
te sind. 

Nachdem das gesamte Que11programm bearbeitet ist, müßten 
alle Symbole definiert sein. Der Assembler liest dann die 
eben erstellte vorläufige Objektdatei und ersetzt an den 
betreffenden Stellen den Vorgabewert durch den wahren 
Wert. Die Tabelle der Undefinierten Symbole beinhaltet 
deswegen ein Feld UA(), in dem die Adressen gespeichert 
sind, bei welchen die wirklichen Werte eingesetzt werden 
müssen und ein Feld UN$(), in dem die Namen der Undefi¬ 
nierten Symbole abgelegt sind. 

In der Tabelle der Undefinierten Symbole wird auch ein 
Feld UT() mitgeführt, das die Art des Operanden angibt, 
bei dem das Undefinierte Symbol gebraucht wurde. Daraus 
läßt sich auch die Zahl der zu ändernden Bytes (1 oder 2) 
bestimmen. Folgende Werte für eine Variable UT() bzw. UT 
sind möglich: 


UT=0 

Typ des Undefinierten 
festgestel lt 

Symbols noch nicht 

UT=1 

Bytewert für BYT-Befehl 

oder #-Adressierung 

UT =2 

Wert für WOR-Befehl 


UT=3 

Zero-Pa ge-Ad resse 


UT =4 

Zero-Page-Adresse eines 

Vektors 

UT=5 

Absolute Adresse 


UT=6 

Adresse des Vektors für 

indirekten Sprung 

UT =7 

absolutes Sprungziel 

UT=8 

relatives Sprungziel 



Nach diesem Exkurs über die Tabelle der Undefinierten Sym¬ 
bole betrachten wir wieder das Unterprogramm. Die Zeile 
16190 wird nur erreicht, wenn ein Undefiniertes Symbol 
auftrat. Hier wird in der Variablen ÜA die Adresse des 
Undefinierten Symbols festgehalten und in der Variablen 
UN$ das Symbol. Im weiteren muß nur noch der Typ des Un¬ 
definierten Symbols bestimmt werden. Abhängig vom Typ (KM) 
des Befehls wird in Zeile 16210 zu unterschiedlichen Pro¬ 
grammstücken verzweigt. Ist KM=0, so wird das Symbol in 
einer Konstantenvereinbarung oder bei einer Direktive be¬ 
nötigt, wo es unbedingt definiert sein muß. Deshalb wird 
in diesem Fall eine Fehlermeldung ausgegeben. 

In den Zeilen 16250 bis 16440 wird abhängig von Typ und 
Modus der Anweisung die Variable UT besetzt. In den Zeilen 
16450 bis 16500 wii^d schließlich das Undefinierte Symbol 
in die Tabelle eingetragen, die Variable U$ auf 'R' ge¬ 
setzt, und die Variable W mit einem Default-Wert, abhängig 
vom Typ des Undefinierten Symbols, besetzt. 
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Ab Zeile 16500 steht das Programmstück, welches den Wert 
des Einzelausdrucks entsprechend dem Merker HW (s.o.) 
zurecht sch neidet. 


Einzelausdruck auswerten 

16000 - 16530 

Variablen: 

Name ! 

Typ ! 

Bereich ! 

Bedeutung 

AD ! 

G ! 

0...65535 ! 

aktuelle Adresse 

BB ! 

R ! 

0...255 ! 

Wert von Binär-Zahl 

BB$ ! 

P 1 

Zeichenreihe ! 

B i när-Zah1 

ER I 

P ! 

0...E9 ! 

Fehlernummer 

HH ! 

R ! 

0...65535 ! 

Wert v. 4-stell. Hex-Z 

HH$ ! 

P ! 

4 Zeichen ! 

4-stellige Hex-Zahl 

HW ! 

H ! 

0,1,2 ! 

Merker f. Halbwortzei. 

KM ! 

E ! 

0...5 ! 

Typ des Befehls 

MO ! 

E ! 

-1. . .10 ! 

Adressierungsnodus 

T$ ! 

E 1 

Zeichenreihe ! 

Einzelterm 

TY ! 

R ! 

0,1,2 ! 

Typ des Symbols 

TN$ 1 

P ! 

Zeichenreihe ! 

Gesuchtes Symbol 

TV ! 

R ! 

0 . . .6 5535 ! 

Wert des Symbols 

U$ ! 

A ! 

' ' oder ’R' ! 

’ R' bei undef. Symbol 

UA ! 

P ! 

0...6 5535 ! 

Adresse, bei der un- 

j 

! 

! 

def. Symbol auftrat 

UN$ ! 

P ! 

Zeichenreihe ! 

Name d. undef. Symbols 

UT ! 

P ! 

0...8 ! 

Typ des undef. Symbols 

W ! 

A ! 

0...65535 ! 

Wert des Einzelterms 

UnterprograBinaufrufe : 

i n ! 

nach 

! Zweck 


16010! 

100 

! Blanks eliminieren 

16090! 

400 

! Wert von Hexadezimalzahl bestimmen 

16100! 

17000 

! Fehler registrieren 

16120 ! 

23000 

! Wert von 8-stell. 

Binärzahl bestimmen 

16170! 

500 

! Symbol in Tabelle 

suchen 

16220 ! 

17000 

! Fehler registrieren 

16270! 

17000 

! Fehler registrieren 

16340 ! 

17000 

! Fehler registrieren 

16450! 

19000 

! Undefiniertes Symbol in Tabelle eintr. 
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Verzweigungen nach außen : 

in Ze 

! nach ! 

Bedingung 

! Bemerkung 

16110 

! RETURN! 

! ! 

LEN(T$) GT 4 AND 
LEN(T$) NE 8 

! Falsche Länge $Term 
! 

16530 

! RETURN! 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

! normales Ende 


3.2.8 Weitere Unterprogramme 


Wert in Tabelle der Undefinierten Symbole eintragen 


19000 REM * WERT IN DATEI DER IJNDEF. SYMBOLE EINTRÄGEN * 

19010 IJ=IJ+1 

19020 IJ A OJ !> = IJ A 

19030 UT(U>=UT 

19040 UN$<U>=UH* 

19050 RETURN 


Die Variable U, die die Anzahl der Undefinierten Symbole 
angibt, wird um eins erhöht. Das Feld UT() beinhaltet den 
Typ, das Feld UA() die Adresse und das Feld UN$( ) den 
Namen der Undefinierten Symbole. 


Symbol-Tabelle speichern und drucken 

20000 REM * SYMBOLTABELLE SPEICHERN UND DRUCKEN + 

20010 PR I NT#4 

20020 PRIFIT#4 , "SYMBOLE : " 

20030 PRINT#4. "NAME T WERT" 

20040 PRINT#4, "-" 

20050 PRINT#15, "S:"+FY+".SYM" 

20060 0PEN5, 8 ,5 , FS + " . SYM , S.. W " 

2 Ü070 G 0 SIJ B25000 

20080 I FDSTHEHF'R INTDS4 :STOF' 

2009O 0 0 S IJ B 2 0i 7 0 0 
20100 CL0SE5 
20110 CMD4 
20120 G0SUB20500 
20130 PRINT#4 
20140 RETURN 
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Wenn das Quellprogramm fertig assembliert ist, so ist auch 
die Symboltabelle komplett. Dieses kurze Unterprogramm 
gibt nun die gesamte Symboltabelle auf dem Drucker bzw. 
auf dem Bildschirm aus und speichert sie zusätzlich in 
einer sequentiellen Datei auf Floppy. 

In Zeile 20060 wird dazu die Datei #5 auf der Floppy mit 
dem Dateinamen F$+".SYM" zum Schreiben geöffnet. Durch 
Aufruf der Unterprogramme ab Zeile 20500 und ab 20700 
(vgl. Kapitel 3.2.1) werden alle Symbole nacheinander so¬ 
wohl auf Floppy als auch auf dem Protokoll ausgegeben. Die 
Ausgabe wird mit dem CMD-Befehl auf die Protokoll-Datei 
umgelenkt, weil im Unterprogramm ab Zeile 20500 normale 
PRINT-Befehle verwendet werden. 

Anschließend wird die Floppydatei geschlossen und das Un¬ 
terprogramm verlassen. 


Manuelle Eingabe von Symbolwerten 


21000 REM * MANUELLE EINGABE VON SVMBQLHERTEN 
21010 PRINTLINE; 

21020 INPUTT# 

21030 T#=LEFT$ C T#+SP F... 8 > 

21040 P 0 K E Q 40 
21050 GO SU B16000 
21060 I FF'EEK ( Q4 > TUEN 21000 
21070 IFUT=1THENTV=1:SI=1 
21080 IFU T=2T H ENTV=1 :SI=2 
21090 IFUT=30RU T=4 THE N TV=1:SI = 1 
21100 IFUT=50RUT=6THENTV=1:SI=2 
21110 IFIJT=7ORUT=8THENTV=2 :SI = 2 
211 20 I FW >.--256TS ITHEN21 000 
21130 TV--W 

21140 TN#=UN# . TV=W : GOSUB18000 
2 1150 RETURN 


* 


Wenn der Assembler beim nachträglichen Einsetzen der vor¬ 
her Undefinierten Symbole feststellt, daß ein bestimmtes 
Symbol immer noch nicht definiert ist, müßte eigentlich 
eine Fehlermeldung 'Symbol nicht definiert' ausgegeben 
werden. In dem vorliegenden Assembler wurde jedoch eine 
andere Möglichkeit gewählt. Ein Symbol das nicht definiert 
wurde, wird am Bildschirm erfragt. Dadurch erspart man 
sich den erneuten Lauf des Assemblers durch das gesamte 
Prog ramm. 

Zur Feststellung des Wertes wird vom Bildschirm die Zei¬ 
chenreihe T$ eingelesen und sodann dem Unterprogramm 16000 
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übergeben, das den Wert eines Einzelausdruckes bestimmt. 
Dadurch kann die Eingabe auch hexadezimal oder binär er¬ 
folgen. War die Eingabe mit Fehlern behaftet, so wird 
nochmal nach dem Symbol gefragt. Der Typ des neuen Symbols 
(TY) richtet sich nach dem Typ des Undefinierten Symbols 
(UT). In Zeile 21130 wird schließlich das neue Symbol in 
die Symboltabelle eingetragen und das Unterprogramm ver¬ 
lassen. 


Eine Zeile einiesen 


22000 REM * EINE ZEILE EINLESEN 

22010 I FFT=1THENGOSUB22700:1S=ST sZN=ZN+1s GOTD22650 
22020 G0SUB22500 

22030 I FF'EEK C Q2 > = 0RNDPEEK <. Q2+1 > =0THEN I S=64 ; RETURN 
22040 ZN=PE EKCQ1>+256*FEEK <Q1 + 1> 

22050 ZN$=RIGHT$<" "+STR$<ZN>,5> 

22060 IFI S>0füNDFPO2THENFP=2 :1 S=flS 
22070 RETURN 


* 


Dieses Unterprogramm liest eine Zeile der Quelldatei in 
die Variable T$ ein. Es wird unterschieden, ob die Ein¬ 
gabedatei eine sequentielle Datei oder eine Programmdatei 
ist. Diese Unterscheidung wird in der Variablen FT festge¬ 
halten. Bei FT=1 ist die Eingabedatei eine sequentielle 
Datei, und das Einlesen ist durch das Unterprogramm ab 
Zeile 22700 zu realisieren. In der Variablen IS wird der 
Status der Eingabedatei festgehalten. IS=64 zeigt das Ende 
der Quelldatei an. 

Im Fall der sequentiellen Eingabedatei sind keine Zeilen¬ 
nummern im Quelltext vorhanden, so daß die Zeilen fort¬ 
laufend durchnumeriert werden. Wenn die Eingabedatei eine 
Programmdatei ist, so wird das Unterprogramm ab Zeile 
22500 aufgerufen, und anschließend werden die von diesem 
Unterprogramm übergebenen Werte, die unter anderem auch 
die Programmzeile enthalten, ausgewertet. Wenn das Pro¬ 
gramm zu Ende ist (angezeigt durch PEEK(Q2 + 1)=0), so wird 
die Variable IS auf 64 gesetzt, um das Ende des Programms 
anzuzeigen. 

Nachdem in Zeile 22050 die Variable ZN$ mit einer fünf- 
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stelligen Zeichenreihe, gebildet aus der Zeilennummer, be¬ 
setzt wurde, wird das Unterprogramm verlassen. 


Bestimmung des Wertes einer Binärzahl 

23800 REM * BESTIMMUNG DES WERTES EINER BIHFlERZRHL * 

23010 BB=0 

23020 FÜR I = 1TOLEN<BBS> 

23030 B-ASC C MI DT C BBT , I > >.48 

23040 1FB<0ORB>1THENER=15:GOSUB17000:RETURN 
2305 0 B B=2 *E: B -i- B 
23060 NENT 
23070 RETURN 

Dieses Unterprogramm legt den Wert einer Binärzahl, die 
als Zeichenreihe BB$ übergeben wird, in der Variablen BB 
ab. Die Berechnung des Wertes geschieht in einer Schleife, 
indem der Hilfsvariablen B zunächst der Wert einer einzel¬ 
nen Stelle der Binärzahl zugeordnet wird. Die Variable BB 
erhält man nun, indem man jeweils den alten Wert der Va¬ 
riablen BB verdoppelt und den Wert der einzelnen Stelle 
hinzuaddiert. Man kann sich überlegen, daß durch dieses 
Verfahren - das den Mathematikern als Hörner-Schema be¬ 
kannt ist - am Ende der Schleife der richtige Wert der 
Variablen BB steht. 


Nummer der Direktive bestimmen 


24000 REM * NUMMER DER DIRECTIVE BESTIMMEN $ 

24010 F O R D = 1T O D 9 

24020 AT—DT < D :> s G0SUB50 

24040 IF H=0 T H E N N E X T 

24050 IFD>D9THEND=0 

24060 RETURN 

Dieses Unterprogramm durchsucht die Variable AA$ nach 
einer vorhandenen Direktive. Dazu wird jede mögliche Di¬ 
rektive mit Hilfe des Unterprogramms ab Zeile 50 unter¬ 
sucht und anschließend die Nummer der eventuell gefundenen 
Direktive in der Variablen D zurückgegeben. 


Disk-Status-Werte DS und DS$ bestimmen 

25000 REM * DISK-STATUS-WERTE DS UND DSf BESTIMMEN * 

25010 IHAUT#15,DS,D1T,D2T,03$ 

25020 DS$=STR$ (. DS > + " " +D1 $+ " .. " +D2T+ " " +D3T 
2503Ö RETURN 
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Hier wind den Status den Floppy aus dem Fehlenkanal in die 
Vaniablen DS und DS$ übentnagen. 

Die Bezeichnung den Ausgabevaniablen wunde in Anlehnung an 
Basic 4.0 den Commodone 8000en Senie gewählt. 


Fehlermeldung beim nachträglichen Einsetzen 


26000 REM * FEHLERMELDUNG BEIM EINTRÄGEN RUSOEBEN * 

26010 HH=flD:GOSUB250 

26020 PRINT#4,"FEHLER BEI "HH$ 

26030 R=0 
26040 RETURN 


Beim nachträglichen Einsetzen von Symbolwenten in die 
Objektdatei können zwei Fehlen auftauchen. Zum einen kann 
ein relativen Sprung, den ja nun 128 Byte umfassen kann, 
auf ein Spnungziel außerhalb dieses Bereichs zeigen, zum 
anderen kann den Wert eines 1-Byte-Openand größer als 255 
sein. Wenn einen den beiden Fälle auftnitt, wind das vor¬ 
liegende Untenpnogramm aufgenufen, das schließlich eine 
entsprechende Meldung auf dem Protokoll ausgibt und den 
Wert des Operanden mit dem Vorgabewert Null besetzt. 


3.3 HauptProgramm mit Vorspann 


Vorspann 


1 GOTT 

150000 


50000 

REM # P R 0 

G R A M 

50170 

Ql-49200:REM 

PZHR 

50180 

02=49202:REM 

PZVP 

50190 

03=49205:REM 

ZEICH 

50200 

04=49208:REM 

FEHLAN2 

5021 ö 

GOSUB5Ü500 


50220 

OPEN 15,815 


5023Ö 

DIMACC5> 


50240 

FORI=0TO5 


•50250 

READACCI> 


50260 

NE NT 


50280 

DIMKM C 58 > KCl 

> 58 . r 10 


V 0 R S P R N N # 
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50290 

FÜRI=1TO58 



50300 

RERDKT C I > , KM 

I > :REM SP fl ET ER 

NUR KI-1 I > 

50310 

IFRCCKMC I ;■ > = 

07 HEN50330 


50320 

F" 0 R J=0 T 0 fl C C K 

M I > > -1 : RER DK CT C 

I,J>:NEXTJ 

50330 

HEXT I 



50340 

09=6 



50:-;60 

DIMUT <09> 



50360 

FÜRI=1T0D9 



50370 

RER DDT':: I :■ 



50380 

NEXT 



50385 

F 0 RI = 12 8 T 0 2 0 

3 :RERDBKT 1 > :NEX 

T:REM SIEHE 

50390 

E9=24 



50400 

DIMERT E9 > 



50410 

FÜR I := 1T OE 9 



50420 

RERDERTLI> 



50430 

NEXT 



50440 

SF'T= " 

II 


50450 

fl N T : =C H R T < 3 4 ') 



50460 

DI MR <: 20 > . UFl <: 

200 > , UT ( 200, 1JNT 

2 hh > 

50470 

GOT 01000 




In Zeile 1 des Programms steht ein Sprung auf Zeile 50000, 
denn aus Rechenzeitgründen ist es sinnvoll, den Vorspann 
eines Programms zeilennummernmäßig an den Schluß zu legen. 
In diesem Vorspann werden im wesentlichen die Felder mit 
den Werten aus den DATA-Statements besetzt, sowie einige 
globale Variablen mit konstanten Werten belegt. Anschlies¬ 
send wird zu Zeile 1010 gesprungen, wo das eigentliche 
Hauptprogramm beginnt. 


Assemblieren 


1000 REM # H S S E M B L I E R E N # 

1010 FP=2 

1020 I NF'UT " DFlTE I ":FT 

1030 FT=2 

1040 0PEH2,8,2FT+ " . SRC , P " 

1050 G 0 S U B2500© 

1060 IFDS=0THENG 0SUB10sGGSUB10sGOTO1130 
1070 IFDSC>64THENPRIHTDSTsCL0SE2 sG0T01020 
1@80 CL0SE2 
1090 FT =1 

1100 0PEN28,2 Ff + " . SRCS " 

1110 G 0 S U B25000 

1120 I FDSTHENF'R INTDSf : CL.0SE2 : GOTO 1020 
1 130 PRINT " Slffi: I HGRBEDRTEI IST " FT" . SRC" 

1140 PR1 NT#15,"S:"+FT + 

1150 PRI NT#15,"S:"+ FT +".UND" 
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1 160 
1 170 
1180 
1 190 
1200 
1210 
1228 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
. 1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 


OP ENS , 81 , Ff+" . . . . ,P, 14 " 

GQSUB25Ü00 

IFDSTHENPEINTDSf : STOP 

INPIJT" HL IST-GERFlET <RDR. > 3181*1" .rLD 

PRINT"HU ISTE ZU "r 

IFLD C8THEN0PEN4 , LD : PR I NT "GERBET " ; L.D : GOTO 1260 
PR I NT " DflTE I " FT " . LST RUF GERRETENR. " L.D 
OP EN 4 ,LD , 4" 0 : " +Ff+ " . LSTS , W " 

GOSUB25000 

IFDSTHENPEI NTOST:STOP 

PRINT#4,"*** CQMMODORE 64 6502-flSSENBLER 
" VERSION 1.5 C 09.03.84>" 

11 fl SS E M B LIER El 1 V 0 N " F f " . S R C' 1 
"OBJECT-DflTEI IST "Ff".OBJ" 

"S V MB0L-'T flBELLE 18T "Ff".SVM" 


PRINT#4 
PRI NT#4 
PRINT#4 
PR I NT #4 
PRINT#4 
PRINT#4 
PRINT#4 


. "ZEI LE 


ADR. 


OBJ 


* QUELLTEN!" 


II 


GO3IJB22000 
TTf=Tf 
GOSUB10000 
HH-RD : G0SIJB25Ö 

PR I NT #4ZNf 11 "HHf ; " " LE FTf C Cf + " " 7 > .? IJf " 11 TTf 

EB=PEEK < 04 > 

IFEBTHENF0RI = 1T0EB :PRINT#4, "FEHLER s " ERf <PEEKCQ4 +1 > > 

P0KEQ4.. 0 

EN=EN+EB 

IFCf=""THEN1480 

RD=BD+1 

HHf=LEFTf C Cf ,2 > sGOSUB400 s PR I NT#3 ,CI-IRf < HI4 > ; 

Cf=FI I Df < Cf , 3 > 

GOTO1430 
IFIS=0 T H EI N13 4 0 

IFI S=64T HENF'R I NT#4.. "äJURTE I ENDE ERREI CHT. 

PRINT#4 

PRI NT'#4 EH "FEHLER. " 

IFLD03THENPRI NTEH " FEHLER. " 

CL.0SE3 

CL0SE2 


Die Zeilen 1010 bis 1540 enthalten den kompletten Ablauf 
zum Assemblieren einer Datei, ausschließlich dem Einsetzen 
der bisher Undefinierten Symbole in die Objekt-Datei, was 
ab Zeile 2000 durchgeführt wird. 

In Zeile 1020 wird zunächst der Name der zu übersetzenden 
Datei in die Variable F$ vom Bildschirm eingelesen. Der 
Dateiname wird hier ohne den Zusatz ‘.SRC’ angegeben. Die 
Quelldatei kann entweder eine sequentielle Datei oder eine 
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Programmdatei sein. Diese Datei benennt man, um Verwechs¬ 
lungen zu vermeiden, am besten mit dem Anhang '.SRC' (für 
Source-Code). 

Die Art der Quelldatei wird vom Programm selbstständig er¬ 
kannt und in der Variablen FT festgehalten. Dabei bedeutet 
FT=1, daß die Eingabedatei sequentiell ist und FT=2, daß 
eine Programmdatei als Eingabedatei vorliegt. Die Unter¬ 
scheidung geschieht durch den Versuch, die Eingabedatei 
als Programmdatei zu öffnen. War die geöffnete Datei eine 
sequentielle Datei, so erkennt das Floppy-Betriebssystem 
dies und gibt den Fehlercode 64 zurück. Daraufhin versucht 
das Programm, die Datei als sequentielle Datei zu öffnen. 

Eine Programmdatei enthält in den ersten beiden Bytes die 
Startadresse, wohin es geladen werden soll. Diese Start¬ 
adresse ist jedoch hier unerheblich und muß deshalb über¬ 
lesen werden, was in Zeile 1060 geschieht. 

In Zeile 1160 wird als logische Datei #3 eine Zwischenda¬ 
tei mit dem Namen der Datei und angehängten vier Punkten 
eröffnet. In diese Datei wird die vorläufige Version der 
Objektdatei geschrieben. In Zeile 1190 kann das Ausgabe¬ 
gerät angewählt werden. Möglich sind dabei folgende Einga¬ 
ben: 


3 - Bildschirm 

4 - Drucker 

8 - Floppy 

9 - Floppy 

Wenn als Ausgabegerät eine Floppy spezifiert wurde, wird 
eine sequentielle Datei F$+".LST“ angelegt, auf der genau 
das gespeichert wird, was sonst auf dem Drucker erscheint. 

Die Zeilen 1260 bis 1330 bilden die Kopfzeilen des Proto¬ 
kolls. Anschließend werden in einer Schleife jeweils ein¬ 
zeln die Zeilen aus dem Quellprogramm eingelesen und in 
der Variablen TT$ gespeichert. Diese Zeilen werden dann 
sogleich assembliert, und das Ergebnis wird auf dem Proto¬ 
koll ausgegeben. Dann werden noch die Fehlermeldungen aus¬ 
gegeben, falls welche vorhanden waren. Die Anzahl der Feh¬ 
lermeldungen pro Zeile wird sogleich auf 0 zurückgesetzt. 
In der Variablen C$ ist nach dem Assemblieren eine hexa¬ 
dezimale Befehlsfolge gespeichert. Diese wird dann als 
Gruppe von zwei Zeichen, die jeweils ein Byte bilden, in 
die vorläufige Objekt-Datei geschrieben, bis die Variable 
C$ die Länge 0 hat. 

In Zeile 1510 wird zum Einlesen der nächste Zeile gesprun¬ 
gen, wenn IS gleich 0 ist, d.h. wenn das Ende der Datei 
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noch nicht erreicht ist. 

War die Datei zu Ende, so wird eine entsprechende Meldung 
ausgegeben, sowie die Anzahl der Fehler auf der Listdatei 
und am Bildschirm ausgegeben und sowohl die Eingabedatei 
als auch die vorläufige Objektdatei geschlossen. Damit ist 
das Programmstück ’Assemb1ieren' beendet. 


Werte nachträglich einsetzen 

2006 REM # W E R T E NflCHTRflEGLICH EINSETZEN # 

2010 PR I NT# 15" S : " +F1 + " . OBJ " 

2020 GQSUB25000 
2030 IF D S > 1T H E N P RIH T D S $ : S T 0 P 
2040 IFUTHEN2090 

2050 PRINT# 15., "R : "+FT+" . OBJ= " +F$ + 

2060 G 0 SIJ B25000 

2070 IFDSTHENPRINTDS * : ST0P 

2080 GOTO 2510 

2090 0PEN38,1 , F* + " . OBJPW " 

2100 0O S U B25000 

2110 IFDSTHENPRIH TOST:STOP 

2120 0PEN282 , F$+ " .... .,P.,R" 

2130 G 0 S IJ B25000 

2140 IFDSTHENPRINTDS* :ST0F 1 

2150 IJ 1 ™0 

2160 flü=SR-3:REM STRRTRDRESSE UEBERLESEN 
2170 lJ1 = 1 : lJ fl=U fl < U1 > : IJ T=IJ T < IJ1 > : IJ N $=U H $ < IJ .1 
2180 RD=flD+l 

2190 GOSUB.10 :1 S=ST : I I =PEEK < 03 > 

2200 IF IJ fl > fl D 0 R U1 > IJ T H ETl P RIN T # 3 , C H R * < I I > ; : 0 0 T02440 
2210 SI=0 

2220 IF U T = 10 R IJ T=3 0 R IJ T=4 0 R IJ T=8 T H E H SI = 1 
2230 IFUT=2QRUT=5QRUT=6GRUT=7THENSI=2 
2240 I FS I=2THEH 11 = 11:GOSUB10sIS=ST:12=PEEK<03 > 

2250 IFUT=0THENST 0P 
2260 T$=LEFT$< TT+SF*8 > 

2270 TN*=IJN* : 00SIJB500 
2280 IF T V=0 T H E N 0 0 S IJ B 21000 
2290 IFIJ T=8THEN2380 
2300 fl=II-15S+TV 

2310 IFSI = 1 AND <fl<0ORfl>255>THENGOSUB26000 

2320 I FS I = 1THENPR1 NT#3CHR$ C 11 -128+TV > .? s GOTO2420 

2330 fl=I1+256*I2-32768-128+TV 

2340 H= I NT (. fl/256 

2350 PR I NT#3EHRT C fl-256*H J CHR-f C H ;■ ; 

2360 FlD=flD+1 
2370 00T 0 2420 
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238Ü 0=11+256* v I I > 127,' , T V- < RD +1 > 

2390 I Ffl> 127ÜRFK ~128THENGOSUB26000 
2400 IF fl 0 T H E H fl=fl+2 5 6 
2410 PRI NT#3 , CHR*C fl > 

2420 IF U1 = IJ T H E N IJ1= U +1 : G 0 T O2 440 

2430 U1 =:I.J 1 +1 : Ufl=Ufl < ü 1 > : UT=Ufl L U1 > : UN4=UH* < IJ 1 > 

2 44 0 IF I. S= 01" H E H 218 0 
2450 CLOSE2 
2460 CLQSE3 
2470 CLOSE6 

2480 PRI NT#15,"S:"+F*+ 

2490 G 0 S IJ B25000 

2500 IFDS>1THENPRINTDST:STOP 

251ü PRINT#4,"FERTIG flSSEMBL IERT." 

2520 IFL0O3THENPR1 NT " FERT IG flSSEMBL I ERT.. " 

2530 G0SUB20000 
2540 GLOSEI5 
2550 CL.0SE4 
2560 END 

In diesem Programmstück von Zeile 2010 bis 2560 wird aus 
der vorläufigen Objektdatei die endgültige Fassung gebil¬ 
det, indem alle bisher Undefinierten Symbole jeweils an 
die richtige Stelle eingetragen werden. 

Dazu wird zunächst eine eventuell schon vorhandene Version 
der Objektdatei gelöscht. War kein Symbol Undefiniert 
(U=0) wird einfach die vorläufige Objektdatei zur endgül¬ 
tigen Objektdatei umbenannt, was in Zeile 2050 geschieht. 
Im anderen Fall wird eine endgültige Objektdatei als File 
#3 eröffnet und die bisherige Objektdatei als File #2. 

Es wird jeweils ein Zeichen aus File #2 gelesen und wieder 
in File #3 weggeschrieben, solange bis die in der Variab¬ 
len AD mitgezählte Adresse kleiner oder gleich der Adresse 
des ersten Undefinierten Symbols ist. Dann wird anstatt 
dem Wert in der vorläufigen Quelldatei der errechnete Wert 
in die endgültige Objektdatei geschrieben. Die Berechnung 
des endgültigen Wertes ist jedoch nicht ganz einfach. Ins¬ 
besondere muß festgestellt werden, ob ein oder zwei Byte 
korrigiert werden müssen. Die Anzahl der zu korrigierenden 
Bytes wird in der Variablen SI festgehalten. Wenn der Typ 
(UT) des Undefinierten Symbols gleich 1, 3, 4 oder 8 ist, 
muß ein Byte ersetzt werden, sonst zwei Byte. 

In den Zeilen 2260 bis Zeilen 2280 wird der Wert des Unde¬ 
finierten Symbols festgestellt. Wenn der Name nicht in der 
Tabelle enthalten ist (TY=0) so wird der Wert mit Hilfe 
des Unterprogramms ab Zeile 21000 vom Bildschirm eingele¬ 
sen. 
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Die Berechnung der einzusetzenden Werte muß unterschied¬ 
lich erfolgen, je nachdem, ob das Undefinierte Symbol aus 
einem relativen Sprung resultiert (UT=8), oder ob ein oder 
zwei Byte korrigiert werden müssen. 

Die Behandlung der relativen Sprünge geschieht in den Zei¬ 
len 2380 bis 2410, ein Byte wird in Zeile 2300 bis 2320 
korrigiert und zwei Bytes in den Zeilen 2330 bis 2350. 

Bei Zeile 2420 vereinigen sich die drei Zweige des Pro¬ 
gramms wieder. Dort wird die Variable Ul, die auf das 
nächste zu ersetzende Symbol zeigt, um eins erhöht. Wenn 
die Datei noch nicht zu Ende ist (IS=0), wird zur Zeile 
2180 gesprungen, wo das nächste Byte der vorläufigen Ob¬ 
jektdatei gelesen wird. Wurde das Ende der Datei erreicht, 
so wird die Zwischendatei gelöscht und die Meldung 'Fertig 
assembliert.' ausgegeben. Danach wird noch die Symbolta¬ 
belle auf Drucker und auf Floppy mit Hilfe des Unterpro¬ 
gramms ab Zeile 20000 ausgegeben. 

Der Assembler hat also im Endeffekt zwei Dateien neu ange¬ 
legt. Zum einen die endgültige Objektdatei und zum anderen 
eine sequentielle Datei, die die Symbole enthält. Diese 
Symboldatei kann von dem in Kapitel 5 beschriebenen Dis¬ 
assembler zur Wiedergewinnung von Symbolen genutzt werden. 

Die Quelldatei wurde nur gelesen und deshalb nicht ver¬ 
ändert. 



Hauptprogram» mit Vorspann 



Sprung auf Zeile 50000 
Vorspann 

Assemblieren 

Werte nachträglich einsetzen 

1 

50000 - 50470 

1030 - 1540 

2000 - 2560 

i 

! Variablen: 

1 1 

! Name ! Typ ! Bereich ! 

1 

Bedeutung ! 

! A 
! AD 
! C$ 

! D9 

! H ! -65535...65535 ! 

! G ! 0...65535 ! 

! R ! 0. .6 Ze ichen ! 

! G ! 6 ! 

Hilfsvariable ! 
Aktuelle Obj.-Adresse ! 
Assemblierter Code ! 
Anz. Direktiven ! 
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j 

DS 

! R 

0. .99 

! Disk-Status (Nummer) ! 

1 

DS$ 

! R 

Ze ichenreihe 

! DS,D1$,D2$,D3$ kombin.! 

! 

E9 

! G 

24 

! Anz. Fehlermeldungen ! 

| 

EB 

! H 

0...15 

! Anz. Fehler pro Zeile ! 

! 

EN 

! G 

Ganzzahlig 

! Anzahl Fehler insges. ! 

j 

F$ 

! G 

Ze ichenreihe 

! Dateiname ! 

! 

FP 

! G 

2,6 

! Log. Nr. Eingabedatei ! 

| 

FT 

! G 

1,2 

! Typ der Eingabedatei ! 

| 

H 

! H 

0.. .255 

i Hilfsvariable ! 

I 

HE$ 

! G 

0123456789ABCDEF 

! Hexadezima1-Ziffern ! 

1 

HH 

! P 

0. . .65535 

! Wert v. 4-stell. Hex-Z! 

| 

HH$ 

! R 

4 Zeichen 

! 4-stellige Hex-Zahl ! 

I 

I 

! H 

0...300 

! Laufvariable ! 

! 

11 

! H 

0. . .255 

! 1. Eingelesener Code ! 

! 

12 

! H 

0. . .255 

! 2. Eingelesener Code ! 

! 

II 

! R 

0 . ..255 

! Eingelesener Code ! 

! 

IS 

! R 

0,2,64,320 

! Einlese-Status ! 

! 

3 

! H 

0 ... 10 

! Laufvariable ! 

! 

LD 

! G 

0. . 15 

! Ausgabe-Geräte-Adresse! 

1 

Ql 

! G 

49200 

! Adresse Prg.Zeilennr. ! 

! 

Q2 

! G 

49202 

! Adresse Prg.Vorw.zeig.! 

| 

Q3 

! G 

49205 

! Adresse eingel. Zeich.l 

! 

Q4 

! G 

49208 

! Adresse Anz. Fehler ! 

! 

SA 

! H 

0...65535 

! absolute Startadresse ! 

! 

SI 

! H 

0. . .2 

! Anz. Byte im Operand ! 

i 

SP$ 

! G 

8 Leerzeichen 

! z. Auffüll. v. Strings! 

! 

T$ 

! R/P 

Ze ichenreihe 

! Eingelesene Zeile ! 

! 

TT$ 

! H 

Ze iche nre ihe 

! Kopie von T$ ! 

j 

TA 

! G 

0...300 

! Anzahl Symbole in Tab.! 

! 

TN$ 

! E 

Ze ichenreihe 

! Gesuchtes Symbol ! 

! 

TV 

! E/A 

0. .65535 

! Wert des Symbols ! 

! 

TY 

! E/A 

0,1,2 

! Typ des Symbo1s ! 

! 

U 

! G 

0...300 

! Anz. undef. Symbole ! 

! 

! 

Ul 

! H 
! 

0...300 

! zeigt auf nächstes ! 

! Undefinierte Symbol ! 

! 

! 

UA 

! E 
! 

Ze ichenreihe 

! Adresse, wo und. Sym. ! 

! einzusetzen ist ! 

! 

UN$ 

! E 

Zeichenreihe 

! Name des und. Symbols ! 

! 

UT 

! E 

0. . .8 

! Typ des undef. Symbols! 

! 

W 

! A 

0...65535 

! Wert des Einzelterms ! 

1 

i 

ZN$ 

! R 

5 Zeichen 

! Zeilennr. als String ! 
-1 


! Felder (Arrays): 


Dirnen. ! Typ ! Bereich ! Bedeutung 


20 


! G ! 0... 255 


! Positionen der 
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J 

! 

! 


! Sonderzeichen 

AC 

! 5 

! H 

j 

0... 10 

! Anzahl Modes je 


! 

j 

j 


! Befehlstyp 

BK$ 

! 203 

! G 

j 

Zeichenreihen 

! Basic-Befehle 

D$ 

! D9 

! G 

i 

Ze ichenre ihen 

! Direktiven 

EB 

! 10 

! G 

! 

0. . .E9 

! Fehlernummern 

ER$ 

! E9 

! G 

j 

Ze ichenre ihen 

! Fehlermeldungen 

K$ 

! K9 

! G 

! 

je 3 Zeichen 

! Mnemonics 

KM 

! K9 

! G 

j 

0. . .5 

! Befehlstyp 

KC$ 

! K9,10 

! G 

i 

2 Hex-Ziffern 

! Ma'schi nencodes 

TN$ 

! 255 

! G 

! 

je 8 Zeichen 

! Symbole 

TV 

! 255 

! G 

I 

0. . .65535 

! Werte d. Symbole 

TY 

! 255 

! G 

J 

0,1,2 

! Typen d. Symbole 

UA 

! 2 00 

! G 

! 

0...65535 

! Adressen der 


i 

i 

j 


! undef. Symbole 

UN$ 

! 200 

! G 

! 

Zeichenre ihe n 

! Namen der 


| 

j 

1 


! undef. Symbole 

UT 

! 2 00 

! G 

j 

0. . .8 

! Typ undef. Symb. 

Dateien : 

# ! 

Name 

T ! 

Bemerkung 



2 ! F$+".SRC"!s/p! Quelldatei 

3 ! F$+"....“! p ! Vorläufige Objektdatei 

4 ! F$+”.LST”! s ! Listdatei 

3 ! F$+“.0B3"! p ! Endgültige Objektdatei 

15! Floppy ! ! Kommado-/Fehlerkanal der Floppy 


Unterprogranmaufrufe : 


in ! nach ! Zweck 


1050 ! 25000 ! Disk-Status abfragen 

1060 ! 10 ! Ein Zeichen einiesen 

1110 ! 25000 ! Disk-Status abfragen 

1170 ! 25000 ! Disk-Status abfragen 

1240 ! 25000 ! Disk-Status abfragen 

1340 ! 22000 ! Eine Zeile einiesen 

1360 ! 10000 ! Eine Zeile assemblieren 

1370 ! 250 ! 4-stellige Hex-Zahl bilden 

1450 ! 350 ! Wert von 2-stelliger Hex-Zahl bestimmen 

2020 ! 25000 ! Disk-Status abfragen 

2060 ! 25000 ! Disk-Status abfragen 

2100 ! 25000 ! Disk-Status abfragen 
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2130 ! 25000 ! Disk-Status abfragen 

2190 ! 10 ! Ein Zeichen aus Zwischendatei einiesen 

2240 ! 10 ! Ein Zeichen aus Zwischendatei einiesen 

2270 ! 500 ! Symbol in Tabelle suchen 

2280 ! 21000 ! Symbol manuell erfassen 

2310 ! 26000 ! Fehlermeldung ausgeben 

2390 ! 26000 ! Fehlermeldung ausgeben 

2490 ! 25000 ! Disk-Status abfragen 

2530 ! 20000 ! Symboltabelle ausgeben 

50210! 50500 ! Initialisierungsroutine aufrufen 


Verzweigungen 

nach 

außen : 


i n Ze 

nach 

! Bedingung 

! Bemerkung 

1180 

STOP 

! DS 

NE 0 

! Disk-Fehler 

1250 

STOP 

! DS 

NE 0 

! Disk-Fehler 

2030 

STOP 

! DS 

GT 1 

! Disk-Fehler 

2070 

STOP 

! DS 

NE 0 

! Disk-Fehler 

2110 

STOP 

! DS 

NE 0 

! Disk-Fehler 

2140 

STOP 

! DS 

NE 0 

! Disk-Fehler 

2250 

STOP 

! UT 
| 

= 0 

! darf eigentlich 
! nicht auftauchen 

2500 

STOP 

! DS 

GT 1 

! Disk-Fehler 

2560 

END 

J 


! Normales Ende 


3.4 Mögliche Erweiterungen 


Der vorliegende Assembler ist bereits recht vielseitig. 
Aber man kann jedes Programm noch verbessern. Es gibt im 
wesentlichen zwei Gruppen von möglichen Verbesserungen. 
Die eine Gruppe dient dazu, den Assembler noch schneller 
zu machen, die andere umfaßt neue Möglichkeiten wie zu¬ 
sätzliche Direktiven oder andere Möglichkeiten einen 
Operanden anzugeben. 

Die in Kapitel 4 abgebildeten Maschinenprogramme ver- 
schnellern den Assembler etwa um den Faktor 10. Die Ma¬ 
schinenprogramme sind allgemeiner gehalten, so daß man 
trotzdem wirkungsvolle Änderungen im Basic-Programm durch¬ 
führen kann, ohne daß man die Maschinenprogramme ändern 
muß. Wie man die Maschinenprogramme in den Assembler ein¬ 
baut, entnehmen Sie bitte dem Listing im Anhang. Zur 
Erstellung der Maschinenprogramme können Sie den Basic- 
Assembler verwenden. 
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Natürlich können Sie weitere Basic-Unterprogramme in 
Assembler übertragen. Es bieten sich hier vor allem die 
Unterprogramme, zum Auswerten von Ausdrücken an, weil hier 
viel Rechenzeit gespart werden kann, aber nicht zu viele 
globale Basic-Variablen verwendet werden, die man ja alle 
als Parameter an das Maschinenprogramm übergeben muß. 
Hilfreich wäre auch eine Routine, welche das Übertragen 
von Zeichen aus der vorläufigen Objekt-Datei in die end¬ 
gültige unterstützt. 

Neue Möglichkeiten können Sie durch Einbau zusätzlicher 
Direktiven gewinnen. Sinnvoll wäre z.B. eine Format-Direk¬ 
tive, mit der Sie das Protokoll auf dem Drucker mit defi¬ 
nierter Anzahl von Zeichen pro Zeile und Zeilen pro Seite 
ausgeben können. Außer der %INCLUDE-Direktive können Sie 
auch Direktiven zum Einbinden von Symboltabellen oder 
fertigen Objekt-Dateien erstellen. Sie können auch leicht 
die Direktiven-Kennzeichnung "%" durch ein anderes Zeichen 
ersetzen, wenn Sie das ”%"-Zeichen für andere Zwecke 
vorsehen wollen. 

Ein Ausdruck könnte auch durch den ASCII-Code eines Zei¬ 
chens gegeben werden, so daß man dann schreiben kann: LDA 
#“A“ anstatt LDA #$41. Weiterhin können Sie versuchen, die 
Beschränkung von nur einem Verknüpfungszeichen im Operan¬ 
den aufzuheben. 

Sie sehen, es gibt vieles zu ergänzen. Wir haben in diesem 
Buch nicht alle Möglichkeiten realisiert, weil es nicht 
Sinn dieses Buches ist, nur das Listing eines perfekten 
Assemblers abzubilden, vielmehr sollte gezeigt werden, was 
ein Assembler macht, und wo die Probleme bei der Program¬ 
mierung liegen. 
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4. Maschinenprograame zub Assenbler 


Der im vorigen Kapitel vorgestellte Assembler ist zwar 
recht leistungsfähig und recht gut zu verstehen, da er 
ganz in Basic geschrieben ist, jedoch ist er noch sehr 
langsam, vor allem bei sehr langen Quelldateien. Deshalb 
wollen wir in diesem Kapitel einige Routinen vorstellen, 
die die häufig benötigten Basic-Unterprogramme und auch 
einige seltener benötigte durch Maschinenprogramme erset¬ 
zen, wodurch eine Geschwindigkeitserhöhung um den Faktor 
10 erreicht wird (vgl. Unterprogramme in Kapitel 3.2.1). 

Die vorgestellten Maschinenroutinen sind auch für andere 
Basic-Programme nützlich, z.B. auch für den Disassembler. 
Die Quelldatei für die gesamten Routinen wurde "ASS.SRC" 
genannt. Dementsprechend ist die Objektdatei, die zu Be¬ 
ginn des Programms zu laden ist "ASS.OBJ". 


4.1 Konstanten-Vereinbarungen / ROM-Routinen 


10 

UU MH 

Murg tcuuü 


1 00 

Ufc.lfc.10 


+i+* *:+ *:+ * * $ ¥ * .4 

1 1 0 

C 0 0 0 

;* K0NS THNTEHVFREIN BRRUHGEH * 

1 20 

C 0 0 0 

; +.+ * * 4!++ + •+ ■+ + •+ f + * +.+: f 4 f + ■¥■ + 4 * 

130 

C 000 

FlDRL=* 14 

; INTEGER2RHL LOW—BYTE 

140 

C 000 

RDRH=RDRL+1 

HIGH-BYTE 

141 

C000 

;RDRL,HDRH 

■JERI.JEN VON DER ROUTINE 

142 

143 

C 0 0 0 

C 0 0 0 

.? GETHDR BZW 

. GbTRB BESETZT 

15ü 

C 001-3 

VRRRDL=*47 

VRRIRBLEH—RDRESSE WIRD VON 

151 

Ufc.lfc.lU 

VRRSUC IN 

V RRRDL, V R R RDL+1 Fl B G E LEGT. 

152 

Ü 0 0 0 



160 

i :U 00 

STRRDR=*1F 

; ZELLENPRFlF: ZUR SPEICHERUNG 

161 

162 

C 0 0 0 

C 0 0 0 

;DER STRING 

-RNFRNGSflüRESSE 

1 65 

C 0 0 0 

STRRDR1=*22 

; ZELLENPRRR ZUR SPEICHERUNi 

166 

167 

IJ00U 

C 000 

;DER STRING 

-RNFRNGSRURESSE 

170 

U 0 0 fcl 

STRLEN=*21 

ZELLE ZUR SPEICHERUNG 

171 

172 

U 000 

C000 

;DER STRING 

—LRENGE 

i 7 s 

r:0MM 

STRL.EH 1 •=* 1E 

.? ZELLE ZUR SPEICHERUNG 

1 76 

177 

U 0 0 0 

U fcl 0 0 

DER STRING 

-LRENGE 

180 

181 

U00U 

C000 

BEP=*U2Ö0 s 

B H SIC -1N P U T - P U F F E R 
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1 90 

0000 

191 

0000 

200 

0000 

201 

0000 

210 

0000 

21 1 

0000 

22Gi 

0000 

221 

0000 

230 

0000 

231 

0000 

232! 

0000 

240 

0000 

250 

0000 

260 

0000 

270 

0000 

280 

0000 

530 

0000 

531 

0000 

r~i * 

0000 

er •“« 

0000 

534 

0000 

54@ 

0000 

541 

0000 

542 

0000 

550 

0000 

551 

0000 

552 

0000 

er er •—« 

.. j.. j .zji 

0000 

560 

0000 

561 

0000 

562 

0000 

563 

0000 

564 

0000 

570 

0000 

571 

0000 

572 

0000 

573 

0000 

580 

0000 

581 

0000 

582 

0000 

583 

0000 

590 

0000 

591 

0000 

592 

001001 

593 

0010101 

600 

001001 

601 

0010101 

602 

0010101 

603 

00010 

604 

0010101 

6 0 5 

0010101 


HOCHKM=$0F s FLAG FUER HOCHKOMMHMODUS 

AKT10—$ 13 ; AKT. I/O—GERAET 

KTAEi=*A09E r TABELLE HIT BASIC-KEVW0RDS 

BASBZ=*7A .? BAS IC-BEFEHLS-ZEIGER 

WL=*S2; HILFSZELLEN FUER 
WH=*63,■ DI VERSE ZWECKE 

HAHTAB=49800 ./TABELLE DER SVMB0L.NAMEN 
V A L T A B=*•9600 ; T A B E L L E DER S V M B 0 L W E R T E 
TVF'TAB == T9500 ; TABELLE DER SVHBOLTVF'EN 

IJSRVEC=T031 1 ; USR-VEKTOR 
GETBVT=TB79B r LIES BVTE-WERT 
;GETBVT LIEST BVTE—PARAMETER AUS 
;BASIC—TEXT.. WERT STEHT ANSCHLIESSEND 
jIM X—REGISTER. 

FACADR=*B7F7 ; WANDELT FAC IN 
.PADRESSFORMAT UM HACH ADRL..ADRH 

GETAB=*B7EB .? GETADR & GETBVT 
;KOMB INIERTE ROUTINE: 
pFRNNUN & FACADR & GETBVT 


FRMNUM=*AD8A LIES FLÜAT. P. -WERT 
.? F R M NUN LIE S T F LIE S S K 0 M M A - P A R A M E T E R A U S 
BAS IC-TEXT. WERT STEHT ANSCHLIESSEND 
?IM FLI ESSKOMMA'-AKKU <FAC >. 

CHKC0M=4'AEFD ; KOMMA UEBERLESEN 

pCHKCOM IJEBERLIEST EIN KOMMA IM BASICTEXT 

;WENN KEIN KOMMA., DANN SVNTAX ERROR. 

FRMEVL=*AD9E HOLT AUSDRUCK AUS BAS IC-TEXT 
;NUMERISCHER AUSDRUCK STEHT DAHN IM FAC 
sSTRING KANN MIT FRESTR GEHOLT WERDEN 

FRESTR=$B6A3 ; HOLT STR INGPARAMTER 
;STRINGADRESSE IN *22,*23 
pLAENGE STEHT IM AKKU 

FLDFACK=*BBA2j KONSTANTE NACH FAC 
;FLDFACK LAEDT FAC MIT KONSTANTE. 

.? EINGABEPARAMETER :: 

.5 AKKU := LOW—BVTE KO HST AN TEN ADRESSE 
? X-REG= HIGH—BVTE KONSTANTENADRESSE 






Maschinenprogramme zum Assembler 


187 


610 

0000 

F P L.. U S l<=:£ E"367 ; 

FflC = FflC 

+KONSTflNTE 

61 1 

0000 

.? PARAMETER SIEP 

E FLDFflCT 



612 

0000 

; 




6 *4 U 

0000 

FflCXV=*BBD4 

FflC NACH 

X / V 


641 

0000 

FflCXY BRINGT P 

AC NACH 

ARIABLE 


642 

0000 

rEINGABEPARAMTER : 



643 

0000 

; X-REG = LOW - 

BYTE VflRF 

IflBLENflDRE 

644 

0000 

? V-REÜ = HIGH- 

BYTE VflRF 

IABLENfl 

DRE 

645 

0000 

" 




650 

0000 

FCHS=*BFB4 

FflC = -FT 

0 


651 

0000 

; WECHSELT NUR 

DAS VÜRZt 

1 CHEN 'v 

ON 

652 

0000 





6 6 0 

0000 

FKMINÜS=#BS50; 

FflC --= KOI- 

ST FINTE- 

FflC 

661 

0000 

PARAMETER: SIEP 

E FLDFflCP 



662 

0000 

; 




670 

0000 

F1 '1 HL. K ••= 4 : B fl 2 8 ; 

FflC = FflC 

:+KONS TT- 

NTE 

671 

0000 

:• PRRRMETER S1 EHE FLDFACI 



672 

0000 





680 

0000 

FKDIV=$BB0F 

FflC = KOI- 

S TANTE.- 

FflC 

681 

0000 

;P HRRHETER SIEHE FLDFfl CK 



682 

0000 

s 




690 

0000 

FSGN=*BC2E: 

fl = SGN 

FflC > 


691 

0000 

;BRINGT VORZEIC 

HEN VON F 

AC IN F 

KK'U 

692 

0000 

;UND SETZT CflRR 

V- UND ZE 

RU—FL ft L 


693 

0000 

;WENN FflC POS11 

IV , 



694 

0000 

.-DANN fl KP U=1 , 

U fl R F! V == 1 

ZERO=6 


695 

0000 

.!WENN FflC = O., 




696 

0000 

DANN AKKU=0 , 

CflRR Y= 1 

ZERO=1 


697 

0000 

WENN FflC NEGFfl 

IV 



698 

O0Ü0 

; DANN AKKU-i^FF , 

CARRY—9 

, ZERO= 

0 

699 

0000 

; 




700 

0000 

fl.pint=$bc9b ; 

FflC HACH 

I NI 


701 

0000 

;E:RINGT GflNZZflHLIGEN TEI 

L. DES 


702 

0000 

;FflC NACH INTL, 

I NT PI . 



703 

0000 

; 




710 

0000 

VflRSUC=$B03B : 

SUCHT VfiF 

LU 

_l 

£ü 

i— i 


71 1 

0000 

BZW. LEGT SIE 

NEU AN 



712 

0000 

; V fl RI fl B L E N fl D R E £ 

SE IN :P4T 

, T48 


713 

0000 

; 




730 

0000 

NE: U S T R = T B 4 F 4 ;l 

EUEH STR] 

NG 


731 

0000 

;EINRICHTEN 




7 8 

0000 

:: 




740 

0000 

E R R 0 R=$ fl 4.3 7 ,:FE 

HLERMELDL 

NG 


741 

0000 

;AUSOEBEN CHUMP 

ER=X—REG. 



742 

0000 





750 

0000 

GETIN=*E124 ; 1- 

OLT ZEIGE 

Ei l VON 


751 

0000 

;AKT. EINGflBEFI 

LE 



752 

0000 

* 




760 

0000 

CHKIN=$E11E : 5 

E'TZT 



761 

0000 

: AKT. EINGflBEFI 

LE 



762 

0000 

; 




765 

0000 

CHK0UT=*E118 ; 

SETZT 
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766 

C000 

; HKT.. AUSGABEFILE 

7fr 7 

C000 

? 


7 70 

C 0 0 0 

CLRCH=$FFCC ; 

SETZT 

771 

Ü 0 0 0 

;FTLE ZÜRUECK 


r r itl 

C000 

; 


"7 "7 er 

i i 

0000 

B S 01J T 4 E10 C 

GIBT EIN ZEICHEN AUS 

77 fr 

U000 

; 


r r' r 

0000 

S T R 0 IJ T = $ fl B 2 5 

; GIBT STRING AUS 

r’ r' y 

0000 

,;LGE IN 7!-REG 

; ADR. IN *22..$23 

779 

0000 

; 


780 

0000 

AVFLP=$B391 

WANDELT 16-BIT-ZAHL 

78 1 

0000 

; IH fl/V NACH 

FLIESSKOMMA 

782 

0000 

; 


790 

UU00 

VFLP=$B3A2 ; 

WANDELT 8-BIT-ZAHL 

791 

0000 

; IH V HACH FLIE SSK0MMA 

782 

0000 

- 


806 

0000 

IL.LQERR=$B248 

; "ILLEGAL Q U ANTI T V' 

810 

0000 

SP0UT=$AB3F 

L E E R Z EIC H E N A U S G E B E N 


Dieser 

Abschnitt der 

Quelldatei vereinbart Konstanten, 

sind meistens Adressen in 

der Zero-Page, die zur 

Zwisc 

speicherung 

und zur 

Indizierung verwendet werden. 

Auße 

werden 

die 

ROM-Routinen 

vereinbart, deren Bedeutung 

Kapitel 2.4 

entnehmen können. 




4.2 Sprungtabelle und Hilfszellen 


1000 

1:000 




* 

10:10 

1:000 


;# 

SPRUNGTABELLE 

* 

1 020 

1:000 


; 

* * * * ** + 4********** 4 **** $ 

* 

1025 

_:000 


ASS : 



1 040 

0000 

41-8080 R 

..TMP 

BLANKEL. I 


1 060 

-'00:.:! 

4C8U8U R 

JI'IF' 

GETZEI 


1080 

-00fr 

4C8080 R 

JMP 

GEI PZ 


1 1 00 

0009 

4C8080 R 

..TMP 

GETTZ 


1120 

0000 

4C308S R 

JMP 

HEX4S 


1 140 

300F 

4C8080 R 

JMP 

HEX2S 


1 160 

3012 

4138080 R 

JMP 

HEXDEZ 


1 180 

3015 

4-138080 K 

.JMP 

INDEX 


1200 

3018 

403080 R 

■JMP 

SGNDZ 


1220 

3Ü1B 

4C8080 R 

JMP 

FEHLREG 


1240 

C01E 

41 :kh:-h R 

JMP 

TABSUCH 


1260 

C021 

4C8080 R 

JMP 

TABEINF 


1280 

C024 

4C3080 R 

JMP 

MNEMÜ 


1300 

0027 

4C8080 R 

JMP 

TABDRUCK 


1320 

C02A 

4C8080 F 

JMP 

TABSPEI 


1340 

C02D 

4CA080 R 

JMP 

INIT 
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1500 

CG 30 


;**************************** 

1516 

CG 3G 


j# VARIABLE UND HILFSZELLEN * 

1520 

CG3G 


;**************************** 

1530 

ÜG3G 

GGÜG 

P Z H R : W 0 R 0 ZEILE N NIJ M MER 

1531 

CG 32 


;DER PR0GRAMMZEILE 

1540 

CG 32 

3000 

PZVP.-WOR 0 ; VÜRUAERTS- 

1541 

Ü034 


;ZEIGER DER F'ROGRAMMZEILE 

1542 

C034 


; 

1550 

0034 

00 

ZLEN: BVT 0 ZUM ZWISCHEN- 

1551 

CG 3 5 


;SREICHERN DER ZEILENLAENGE 

1552 

0035 



156Ü 

0035 

GG 

ZEICH: Ei VT 0 ; VON GETZEI 

1561 

CG36 


; EINGELESENES ZEICHEN 

1562 

CG 36 


; 

1570 

CG36 

GG 

ANZ : E:VT 0 ANZAHL DURCHLAEUFE 

1571 

0:037 


BEI IN D E X - F IJ N K T10 N 

1572 

0037 



1580 

0:037 

GG 

WERT: BVT 0 ;U.A. FUER HEX—ROUTINE 

1581 

CG 38 


; 

1590 

CG 38 

00 

FEHLAHZ: BVT 0 

1 600 

CG 3 9 


FEHLER! : 

1601 

0048 

00 

ZDIJP 16..BVT 0 

1602 

0:049 


; 

1610 

0049 

CI GldG 

SVMANZ s WOR 0 ..-ANZAHL SVMBOLE 

1611 

004B 


; 

1620 

00413 

00 

SVMTVP:BVT 0 

1 630 

0040 

0000 

SVMWERT:WOR 0 

1640 

004E 

00 

3 V l ' l N R : B V 1 0 

1641 

004F 


; 

1800 

U fcJ 4 F 

91 

F65536 : BV l“ $91 

1810 

0050 

0000 

WOR 0 

1820 

0052 

00 GG 

WOR 0 

1 830 

0:054 


F65536H = F65536 256 

1840 

0054 


H=F65536H * 256 

1850 

0:054 


F65536L = F65536 - H 


Am Beginn des Programms steht eine Sprungtabelle, die auf 
die einzelnen Routinen verzweigt. Das hat, ähnlich wie bei 
der KERNAL-Sprungtabe1le, den Sinn, daß neuere Versionen 
der Unterprogramme erstellt werden können, ohne daß sich 
die Aufrufadressen ändern. 

Im Anschluß an die Sprungtabelle werden einige Hilfszellen 
deklariert, die zur Parameterübergabe oder zur Zwischen¬ 
speicherung von Werten benötigt werden. Außerdem wird die 
Fließkomma-Konstante 65536 definiert. 
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4.3 Leerzeichen eliminieren 


2000 

C054 


;**************************** 

2610 

C054 


;+ BLANKS ELIMINIEREN * 

2020 

C054 


;********************SH******* 

2030 

C054 


BLANKELI : 

2040 

C054 

20FDFIE 

JSR CHKCOM 

2050 

C057 

208BB0 

..TSR VflRSÜC 

2060 

C05R 

208080 

R JSR STRBARL 

2070 

C05D 

F 0 00 

R BEÜ BLANKEND 

2080 

C05F 


BLANK1 : 

2090 

C05F 

Bl 1F 

L D fl 5 T R fl Ci R V 

2100 

C061 

C920 

CMP #$20i 

2110 

C063 

D000 

R EINE BLANK3 

2120 

C065 

ES 1F 

INC STRADR 

2130 

C067 

D000 

R BNE BLANK2 

2140 

C 0 6 9 

E6201 

INC STRADR+1 

2150 

C06B 


BLANK2 : 

216@ 

C06E 

0621 

DEC STRLEN 

2170 

C06D 

F'010101 

R BEQ BLANKS 

2180 

C06F 

D 01 EI EI 

BNE BLANK1 

219@ 

C071 


BLANKS: 

2200 

0071 

B421 

LDV STRLEN 

2210 

0073 


BLANK4: 

2220 

0073 

88 

DEV 

2230 

0074 

Bl 1F 

LDfl CSTRADRi,V 

2248 

C076 

C920 

CMP #$20 

2250 

C078 

0000 

R BNE BLANKS 

2260 

Cßi7 fl 

0621 

DEC STRLEN 

2270 

C07C 

D0F5 

BNE BLANK4 

2280 

C07E 


BLANK9: 

229ü 

007E 

208080 

R JSR STRPARS 

2300 

0081 


BLANKEND: 

2310 

0081 

60 

RTS 

2320 

C082 


; 

2400 

C082 


■m STRINGPARAMETER LESEN ## 

2410 

C082 


STRPARL : 

2420 

C082 

R 0 0 2 

LDV #2 

2430 

0084 

Bl 47 

LDfl < VARADL }V 

2440 

C086 

8520 

STA STRFlDR+1 

2450 

C088 

88 

DEV 

2460 

C089 

Bl 47 

LDA <■. VARADL > V 

2470 

00 SB 

851F 

STA STRADR 

2480 

C08D 

C; 

DEV 

2490 

008E 

Bl 47 

LDfl C VARADL ::>,.V 

2500 

C090 

8521 

STA STRLEN 

2510 

C092 

60 

RTS 

2520 

U093 



2600 

C093 


STRINGPARAMETER SCHREIBEN 

2610 

C093 


•S1 RF’flRS : 
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2620 

C093 

R002 

L UV #2 

2630 

C095 

R520 

L.DFI STRRDR+1 

2640 

C097 

9147 

S T El V I-IF*: fl D L_ , V 

26150 

C099 

y y 

DEV 

2660 

C09R 

El 51F 

LDR STRADR 

2670 

C09Ü 

9147 

STR < VARADL:' ,V 

2680 

C09E 

o 8 

DEV 

2690 

C09F 

El 5 21 

LDR STRLEN 

2700 

C0fll 

9147 

STA VARADL.::* ,V 

2710 

C0R3 

6 0 

RTS 

2720 

C0R4 


? 

2800 

C0H4 


;** STRIHGPRRRMETER LESEN 

2S10 

C0R4 


STRPARL1 : 

2820 

C0R4 

fl 002 

L..DV #2 

283Ö 

C0R6 

Bl 47 

LDR <VARADL> ,V 

2840 

C 01-18 

O CT ***** 

Ö ■_.! i^l. “i 

STA STRADR 1 + 1 

2850 

LDflfl 

y w 

DEV 

2860 

C0RB 

Bl 47 

LDR <VARADL>,V 

2870 

C0R0 

i^i er , 

STA STRADR1 

2880 

C0RF 

yy 

DEV 

2890 

C0B0 

B1 47 

L D fl V fl R fl D L .r V 

2900 

IJ y B 2 

85 IE 

STA STRLEN1 

2910 

C0B4 

60 

RTS 

2920 

C0B5 



Wir 

wollen 

zunächst 

die drei Unterprogramme 

Parameter 

lesen und schreiben behandeln, die 


am 


String- 

Schluß 


dieses Programmstücks stehen. Diese Unterprogramme werden 
auch noch von anderen Routinen benötigt. 


Wie wir in Kapitel 2.3 gesehen haben, werden String-Varia¬ 
ble als drei Byte abgespeichert, das erste Byte gibt die 
Länge des Strings an, die beiden folgenden sind Low- und 
High-Byte der String-Anfangsadresse. Die drei abgebildeten 
Unterprogramme gehen davon aus, daß die Variablen-Adresse 
in den Zellen VARADL und VARADL+1 gespeichert ist. 

Das Unterprogramm STRPARL liest aus der Variablen die 
String-Parameter und legt sie in die Speicherzellen STR- 
LEN, STRADR und STRADR+1 ab. Danach kann auf die Länge der 
Strings und die Startadresse leichter zugegriffen werden. 
Das Unterprogramm STRPARS vollführt die umgekehrte Funk¬ 
tion, es überträgt die Werte aus den Zellen STRLEN, STRADR 
und STRADR+1 in die Variablenzellen. 


Die Routine STRPARL1 macht das gleiche wie STRPARL, jedoch 
werden die Werte in den Zellen STRLEN1, STRADR1 und STR- 
ADR1+1 abgelegt. 
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Nun zum eigentlichen Unterprogramm BLANKELI. Am Anfang 
sehen Sie eine typische Möglichkeit, einen String-Varia- 
blen-Parameter einzulesen. Zunächst wird geprüft, ob im 
Basic-Text ein Komma folgt, dann wird die Variable gesucht 
und anschließend die String-Parameter eingelesen. Da die 
Routine STRPARL als letztes die Stringlänge liest, kann 
mit Sprung BEQ BLANKEND der Fall behandelt werden, daß die 
Zeichenreihe leer ist. Das Y-Register wurde im Unterpro¬ 
gramm STRPARL auf Null gesetzt, so daß sofort das erste 
Zeichen des Strings angesprochen werden kann. Ist es ein 
Leerzeichen, so wird einfach die String-Anfangsadresse um 
eins erhöht und die Stringlänge vermindert. Dieser Vorgang 
wird fortgesetzt, bis entweder die Stringlänge Null ist, 
oder ein anderes Zeichen als das Leerzeichen gefunden 
wird. In diesem Fall wird das letzte Zeichen der Zeichen¬ 
reihe überprüft. Die Stringlänge wird solange vermindert, 
bis das letzte Zeichen des Strings kein Leerzeichen mehr 


ist. 

Dann 

werden 

die String-Parameter abgespeichert 

das 

Jnterprog ramm 

verlassen. 



4 

.4 Ein Zeichen einiesen 

3000 

C0B5 


; $$$**$ $ .4 :+ :+ .4: # 4 * .4 4' *:+ * 4 * & * $ # * * 

30 1 0 

C0B5 


r* EIN ZEICHEN EINLESEN * 

3020 

C0B5 



3030 

C0B5 


GETZEI s 

3040 

C0B5 

209'E;B7 

TSR GETBVT;FILE-NUMMER IN X—REGIS 

3050 

C0B8 

8613 

STK AKTIO 

3060 

C0Bfl 

201 EE1 

•JSR CHKIN 

3070 

COBD 

2024E1 

TSR GEHN 

3080 

C0C0 

8D35C0 

STA ZEICH 

3090 

C0C3 

fl 613 

L.DX AKT IO 

3100 

C0C5 

F 000 

R BEQ GETZEI1 

31 10 

C0C7 

20 CCFF 

JSR CLRCH 

3120 

C0CR 

FI200 

L.DX #0 

3 1 30 

C0CC 

8613 

STX AKT 10 

3140 

C0CE 


GETZEI 1 : 

3150 

C0CE 

60 

ETS 

3 1 60 

C0CF 


* 


Dieses Unterprogramm ersetzt den GET-Befehl. Der ASCII- 
Code des eingelesenen Zeichens steht anschließend in der 
Hilfszelle ZEICH. Hier wird zunächst aus dem Basic-Text 
die logische Filenummer der zu lesenden Datei in das X- 
Register gelesen. Anschließend wird der Kanal geöffnet, 
ein Zeichen geholt und der Kanal wieder geschlossen. 
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4.5 Eine Progranazeile lesen 


In diesem Programmabschnitt sind drei Unterprogramme ent¬ 
halten, das erste für die Zuweisung einer Zeichenreihe im 
Inputpuffer an eine String-Variable, das zweite zum Umwan¬ 
deln eines Basic-Befehlscodes in Klartext und das dritte 
zum eigentlichen Einlesen einer Programmzeile aus einer 
Date i. 


String-Zuweisung 


z 

200 

C0CF 


z 

210 

C0CF 


z 

220 

C0CF 

RD34C0 

z 

230 

C0D2 

0521 

z 

240 

C0D4 

F 0 0 0 

z 

250 

C0DS 

9000 

z 

260 

CODS 

20F4B4 

z 

270 

C0DB 

SS 1F 

z 

230 

C0DD 

8420 

z 

290 

C0DF 


7. 

300 

C0DF 

8521 

z 

3 :l ö 

00 E1 

RS 

7. 

320 

C0E2 

F 000 

:e 

330 

C0E4 


7. 

340 

C0E4 

88 

7. 

350 

C0E5 

B98082 

z 

360 

C0ES 

911F 

z 

370 

00 ER 

0000 

z 

330 

C0EC 

D0FS 

z 

390 

C0EE 


z 

400 

C0EE 

209300 

z 

410 

C0F1 

60 

z 

420 

C0F2 



STR ING-ZIJUEISUFIG 
STRZUN : 

LÜH ZLEH 
CI1P STELEN 
BEG! STRZU1 
BCC STRZU1 
JSR NEUSTE 
STK STRRDR 
STV STRRDR+1 
STRZU1s 
STR STELEN 
TRV 

BEQ STRZU3 
STRZU2: 

DEV 

LDR BEPV 
STR <STRRDR> .-V 
CPV #9 
BNE STRZU2 
STRZU3: 

JSR STR:PRIES 
RTS 




Dieses kleine Unterprogramm weist den Inhalt des Input- 
Puffers (Zellen $0200 bis $024F) mit der Zeichenreihen¬ 
länge ZLEN einer String-Variablen zu. Dabei können zwei 
Fälle auftreten. Einmal kann die neue Zeichenreihe länger 
sein als die alte, dann muß ein neuer String eingerichtet 
werden, andernfalls kann der alte Stringbereich benützt 
werden. Das Einrichten eines neuen Strings geschieht mit 
der Basic-Routine NEUSTR, die die String-Adresse im X- und 
Y-Register übergibt. 

Auf alle Fälle muß der Inhalt des Basic-Input-Puffers in 
den String-Bereich übertragen werden. Dies geschieht in 
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einer Schleife zwischen den Labein STRZU2 und STRZU3. 
schließend werden auch die Sting-Parameter in die Vari 
übertragen und das Unterprogramm beendet. 


Basic-Code umwandeln 


3500 
351Ü 

IJ0P 2 

C0F2 


t 4 4 4 444 444 44 4 44444 4:4 4 44 44 4 44 
;4 BASIC-CODE OMWANDELN 

353Ö 

C0F2 


F'2CODE : 

3540 

C0F2 

fl fl 

TFlX 

3550 

C0F3 

1000 

? BPL PZC0DE6 

356Ö 

C0F5 

C9FF 

CNF' #4FF ; CODE EUER PI 

3570 

C0F7 

F000 1 

< B E U F’ Z U U D E 6 

3580 

C0F9 

240F 

BIT HOCHKM 

3590 

C0FB 

3000 

? BMI PZC0DE6 

3600 

C0FD 

38 

SEC 

3610 

C0FE 

E37F 

SBC #47F 

3620 

C 1 00 

fl fl 

TAX 

3630 

C1 0 1 

fl© Ff 

LUV #4FF 

3640 

CI 03 


PZC0DE2s 

3650 

CI 03 

Cfl 

DEN 

3660 

CI 04 

F000 1 

■i BEQ PZC0DE4 

3670 

CI 06 


PZC0DE3 : 

3630 

CI 06 

C3 

INV 

3630 

C107 

B99EA0 

LDfl KTflB.V 

3700 

CI ©fl 

10 FA 

BF'L. PZC0DE3 

3710 

C10C 

30 F 5 

BMI PZC0DE2 

3720 

C10E 


P2CIJDE4 : 

3730 

C10E 

C8 

INV 

3740 

C10F 

E99EA0 

LDfl KT AB... V 

3750 

C1 12 

3000 

? BMI PZC0DE5 

3760 

C114 

AE34C0 

LDX ZLEN 

3770 

C1 17 

EE34C0 

INC ZLEN 

3730 

C1 1 fl 

900002 

ST fl BEF'.. X 

3790 

C1 1D 

D0EF 

EHE PZC0DE4 

:'-;: :: :00 

C1 1F 


PZC0DE5 : 

3810 

C11F 

297F 

AND #47F 

3820 

C121 


PZC0DE6 : 

3330 

C121 

C922 

CMP #422 ; HOCHKOMMA 

3840 

C123 

0000 

BNE PZC0DE7 

3850 

C125 

H50F 

LDfl HOCFIKM 

3860 

CI 27 

4 9 FF 

EOF: #4FF 

38 70 

C129 

850F 

STA HOCHKM 

3380 

C12E 

A3 2 2 

LDfl #422 

3890 

C12D 


PZC0DE7 : 

3900 

C12D 

60 

ET 3 

3910 

C12E 




An- 

able 
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Diese Routine benötigt als Eingabeparameter den Akkumula¬ 
tor, der das zu dekodierende Zeichen enthält, und eine 
Zelle ZLEN, die angibt, ab welcher Stelle im Input-Puffer 
das dekodierte Ergebnis abgelegt werden soll. Die hier mit 
KTAB gezeichnete Tabelle ist die im ROM eingebaute Be¬ 
fehlstabelle des Interpreters. Hier sind die Befehle je¬ 
weils so gespeichert, daß beim letzten Buchstaben des Be¬ 
fehls das Bit 7 gesetzt ist. 

Außerdem wird noch überprüft, ob der Hochkomma-Modus aktiv 
ist oder nicht. Bei eingeschaltetem Hochkomma-Modus 
braucht keine Codewandlung zu erfolgen. 


Eine Programmzeile aus Datei einiesen 


40yfci 

4010 

4020 

4030 

4040 

C12E 

C12E 

C12E 

C12E 

C12E 

fl 900 

;**************************** 

.;* EINE F'RGGRRMMZEILE LESEN * 
.,•**************************** 
GETF'Z : 

LDfi #0 

4050 

CI 30 

850F 

STR HOCHKM 

4060 

CI 32 

SD34C0 

STR ZLEN ; EINGRBELRENGE 

4070 

C135 

209BB7 

JSR GETBVT;FILE-NUMMER IM X--REG 

4080 

C 138 

8613 

STX RKTIÜ 

4090 

C13 fl 

20 FD RE 

JSR CHKCOM 

4 100 

C130 

208BE* 3 

JSR VRESIJC 

4110 

C140 

2082C0 

JSR STRF'RRL 

4120 

CI 43 

R613 

LDX RKTIÜ 

4130 

CI 45 

201 EE1 

JSR CHKIN 

4140 

C148 

2024E1 

JSR GETIN 

4150 

C14B 

8D32C0 

STR F'ZVP 

4160 

C14E 

2024E1 

JSR GETIN 

4170 

C151 

8D33C0 

STR PZVP+1 

4180 

C154 

R8 

TRV 

4190 

C155 

F O 0 0 F 

:: BEQ GETF'Z2 

4200 

CI 57 

2024E1 

JSR GETIN 

4210 

C1 5 Fl 

8D30C0 

STR F'ZNR 

4220 

C1 5D 

2024E1 

JSR GETIN 

4230 

C160 

8D31C0 

STR PZNR+1 

4240 

4250 

C163 

2024E1 

GETF'Z 1 : 

JSR GETIN 

4260 

CI 66 

2öP 2CD 

JSR F'ZCODE 

4270 

CI 69 

RC34C0 

LOV ZLEN 

4280 

C16C 

99Ö002 

STR BEF'.,V 

4290 

C16F 

R8 

T flV 

4300 

C1 70 

F 00101 

? BEQ GETPZ2 

4310 

C172 

EE34C0 

INC ZLEN 

4320 

CI 75 

D0EC 

EINE GETF'Z 1 

4330 

C 1 77 

Fl 217 

LDX #23 ;STRING TOD LONQ 








196 


Kapitel 4 


4340 C 

1 f'B 

4350 C 

170 

4360 L 

17C 

4370 L 

1 7F 

4330 i _ 

131 

4390 C 

133 

4400 C 

186 

4410 C 

138 

4429 C 

18 fl 

4430 C 

18 fl 

4440 C 

1 SB 


4C37R4 

20CFCG 
fl 613 

F 000 R 
20CCFF 
I 1200 
36 13 

60 


JMP ERROR 
GETP22: 

..TSR STRZUW 
LDX AKTIO 
EEQ ÜET'PZE 
.JSR CLRCH 
LDX #0 
STX AKTIO 
GETP2E : 

RTS 


Zum Verständnis dieser Routine müssen wir zunächst unter¬ 
suchen, wie eine Basic-Programmzeile im Speicher abgelegt 
ist. Zunächst erscheinen zwei Byte, die den Beginn der 
folgenden Programmzeile anzeigen. Sind diese beiden Byte 
gleich 0, so ist dadurch das Ende des Programms gekenn¬ 
zeichnet. Nach diesen zwei Byte folgen weitere zwei Byte, 
die die Zeilennummer im Basic-Text darstellen. 
Anschließend folgen bis zu 80 Zeichen, die jeweils noch 
dekodiert werden müssen, um dem Basic-Klartext zu 
entsprechen. Das Ende einer Zeile wird mit einem O-Byte 
geke nnzeichnet. 

Das vorliegende Unterprogramm annulliert zunächst den 
Hochkomma-Modus, holt dann die String-Variable und eröff¬ 
net den Eingabekanal für die Datei. 

Dann werden zwei Zeichen aus der Datei gelesen und in die 
Zellen PZVP und PZVP+1 gespeichert. Wenn der Inhalt der 
letzten Zelle gleich Null ist, so bedeutet dies ein Pro¬ 
grammende, und es wird zum Label GETPZ2 verzweigt. Im Nor¬ 
malfall aber wird die Zeilennummer eingelesen und in die 
Zellen PZNR und PZNR+1 gespeichert. Dann wird in einer 
Schleife ein Zeichen gelesen, dekodiert und in den Basic- 
Input-Puffer abgelegt. Es ist die Ausgabe einer Fehlermel¬ 
dung vorgesehen, wenn die Zeichenreihe länger als 255 
wird. Wurde die Ende-Marke der Basic-Zeile, hier ein 0- 
Byte, gefunden, so wird zum Label GETPZ2 gesprungen, wel¬ 
ches die Zuweisung an die String-Variable vornimmt und den 
Eingabekanal schließt. 


4500 

C1SE 

4510 

C18E 

4520 

C1SE 

4530 

C18E 

4540 

C18E 


4.6 Eine Textzeile lesen 


; ***** * * * * * ** * * * * * * * * * ** * * * * * 
.:* EINE TEXT-ZEILE EINLESEN * 
;* ** * *:+ * ***** * * * * * * ********* * 
GETTZ : 

LDH #0 


Fl 9 00 
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4558 

CI 80 

8D34C0 

STA ZLEH ; EIHGABELAENGE 

4560 

C130 

209BB7 

.JSR GETBVT;FILE -NUMMER Il'l X 

4570 

CI 93 

36 13 

STK AKTIO 

4530 

CI 95 

20FDAE 

TSR CHKCOM 

4590 

CI 98 

208Ei B @ 

J'SR VARSUC 

4600 

C19 Ei 

20:32C0 

..TSR STRPARL 

4610 

C19E 

A6 13 

LDH AKTIO 

462 0 

CI 00 

201 EE1 

TSR CHKIN 

4630 

CI A3 


GETTZ1 : 

4640 

CI A3 

2024E1 

TSR GETIH 

4650 

CI A6 

AC34C0 

LDV ZLEH 

4660 

C1A9 

990082 

STA BEP,V 

4670 

C1AC 

C90D 

CMP (110D .? CR PRINT 

4680 

CI AE 

F0CC 

BEQ GETPZ2 .?HEITER BEI GETF 

4693 

C1B0 

EE34C0 

INC ZLEH 

4700 

C1B 3 

D0EE 

BHE GETTZ1 

4710 

C1 Ei 5 

A217 

LDH #23 ;STRING TOQ LOHG 

4720 

C1B7 

4C37A4 

..TMP ERROR 


Dieses Programm ist sehr ähnlich zum vorher beschriebenen 
‘Programmzeile lesen', jedoch entfällt hier das Einlesen 
des Vorwärtszeigers und der Zeilennummer. Das Endekrite¬ 
rium ist hier das Auftreten eines Carriage-Return ($0D). 

Da die Stringzuweisung die gleiche ist, wie bei ‘Programm¬ 
zeile lesen', wird einfach beim Erreichen des Endekriteri¬ 
ums zum Label GETPZ2 gesprungen, das weiter oben beschrie¬ 
ben ist. 


4.7 Wert von Hexadezimalzahl bestimmen 


5000 

C IBA 


r.+. * *.+: * $ * +: * +:+* * * +: +. * * +: +.:+::+: ***** 

5010 

C1BA 


;# WERT VON HEX—ZAHL * 

5020 

C1 BA 


;**************************** 

5030 

C1 BA 


HEXDEZ : 

5040 

C1BA 

2032E: 7 

J'SR TB782 

5050 

CI BO 

8C34C0 

STV ZLEH 

5060 

C1C0 

C005 

CPV #5 

5070 

C1C2 

B000 

R BCS ILLHEX 

5030 

C1C4 

R0ÖÖ 

LDV #0 

5090 

Ü1Ü6 

8463 

STV WH 

5 1 00 

C1 cs 

8462 

STV WL 

51 10 

c 1 CA 


H Er..'DEZ 1 : 

5120 

C1 CA 

CC34C0 

CPV ZLEH 

5130 

CI CD 

Ei 0100 

R BCS HEXDEZS 

5140 

CI CF 

0662 

ASL. WL. 

5150 

C1D1 

2663 

ROL WH 

5160 

C1D3 

0662 

ASL WL 

5170 

C1D5 

2663 

ROL. WH 
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5180 

C1D7 

0662 


RSL 

HL 

5190 

CI 09 

266-3 


ROL 

WH 

5200 

C1 DE: 

0662 


RSL 

WL 

5210 

CI DD 

2663 


ROL 

WH 

5220 

CI DF 

Bl 22 


LDR 

<STRRDR1>,V 

5230 

C1E1 

38 


SEC 


5240 

C1E2 

E930 


SBC 

#430 

5250 

C1E4 

C90R 


CNF 

#10 

5260 

U1E 6 

9000 

R 

BCC 

HEXDEZ2 

5270 

C1 ES 

E907 


SBC 

#7 

5280 

CI ER 

C910 


CMP 

#16 

5290 

CI EC 

E'000 

R 

BCS 

ILLHEX 

5300 

C1EE 



HEXDEZ2: 

5310 

C1 EIE 

c© 


IHV 


5320 

C1 EF 

6562 


RDC 

WL 

5330 

C1F1 

8562 


STR 

WL 

5340 

C1F3 

90D5 


BCC 

HEXDEZI 

5350 

CIF 5 





5360 

C1F5 



ILLHEX: 

5370 

C1F5 

R215 


LDX 

#21 ; ILL.HE 

5375 

C1F7 

2 üü0b'0 

R 

..TSR 

FEHLER 

5380 

CI FR 

H 0 0 0 


LDV 

#0 

5390 

CI FC 

20R2B3 


-TSR 

VF LP 

5400 

CI FF 

60 


RTS 


5410 

C200 





5420 

C 2 0 0 



HEX 

DEZ 8 : 

5430 

C200 

H462 


LDV 

WL 

5440 

C202 

R563 


LDR 

WH 

5450 

C204 

3000 

R 

BMI 

HEX DEZ 9 

5460 

C206 

2091B3 


-TSR 

RVFLF' 

5470 

C209 

60 


RTS 


5480 

C20R 



; 


5490 

C20R 



HEX 

DEZ9 : 

5500 

C20R 

2091B3 


-TSR 

RVFL.P 

5510 

C20D 

R94F 


LDR 

#F65536L 

5520 

C20F 

H0C0 


LDV 

#F65536H 

5530 

C21 1 

2067B8 


-TSR 

FPLÜSK 

5540 

C214 

60 


RTS 


5550 

C215 
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Dieses Unterprogramm wird von Basic als USR-Funktion auf¬ 
gerufen. Das Setzen des USR-Vektors wird im Basic-Programm 
erledigt (z.B. durch Aufruf der unten beschriebenen Rou¬ 
tine INIT). Hier wird als Parameter für die Funktion eine 
String-Variable verwendet. Das Einlesen der String-Varia¬ 
ble wurde bereits durch den Basic-Interpreter bewerkstel¬ 
ligt. Wir müssen hier allerdings noch mit Hilfe der Rou¬ 
tine ab $B782 die String-Parameter übernehmen, dabei wer¬ 
den die String-Adresse in die Zellen $22 und $23 abgelegt, 
die wir hier mit STRADR1 und STRADR1+1 bezeichnet haben. 
Die Länge der Strings wird im Y-Register übergeben. 

Wir speichern die Stringlänge noch zusätzlich in der Zelle 
ZLEN ab. Ist die Länge größer gleich fünf, so wird zur Be¬ 
handlung eines Fehlers verzweigt. Der Wert der Hexadezi¬ 
malzahl wird in den Hilfszellen WH und WL aufgebaut. Die 
ASL/ROL-Kombinationen stellen eine Multiplikation des auf¬ 
gebauten Wertes mit 16 dar. Dazu wird jeweils der Wert des 
neuen Zeichens hinzuaddiert. Die Zuweisung der erhaltenen 
Werte an den F1ießkomma-Akkumulator geschieht ab dem Label 
HEXDEZ8. Hier wird die Routine AYFLP verwendet, die eine 
im Akku und Y-Register stehende Integer-Zahl in Fließkomma 
umwandelt. Diese Routine interpretiert die Zahl jedoch als 
vorzeichenbehaftete 16-Bit-Integerzahl, so daß eine Kor¬ 
rektur vorgenommen werden muß (hier ab Label HEXDEZ9), die 
noch 65536 zum Ergebnis hinzuzählt, wenn die umzuwandelnde 
Zahl größer als 32767 war. 


4.8 Hexadezimal-Zahl bilden 


6Ö00 

C215 


6010 

C21 5 


6020 

C2 1 5 


6 1 00 

C21 5 

444546 

61 10 

cl ^1 üi. 

6120 

Ü 225 


6230 

Ü 2 2 5 


6240 

C225 

RD37C6 

6250 

C228 

290F 


6260 
6270 
6280 
6290 
6300 
6310 
6320 
t' -.!> 3 0 
6340 
6 3 5 0 
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HH 

BD15C2 
SD©102 
RD37C0 
4R 
4R 
4 Fl 
4R 
RR 

BD15C2 


; 44444 $ 4 4 44444444444444444444 
;4 HEX-ZIFFERN BILDEN 4 

;4444444444444444444444444444 
HEX TR El: 

X R S C " 01234567S 9 R B L D E F " 

HEX s 

LDfi WERT 
FIND #*0F 
TRX 

LDFl HEXTRB ,■ X 
STR BEF'+ l 
LDR WERT 
LSR R 
LSR R 
LSR R 
LSR R 
TRX 

LDR HEXT RB . .X 
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6360 

C23C 

8D0002 

STR 

BEF 

6370 

C23F- 

60 

RTS 


6380 

Ü240 




6400 

C240 


HEX: 

IS 9 

6410 

C240 

2 ü 9 B B i’ 

TSR 

GETBVT 

6420 

C243 

8E37C0 

STK 

WERT 

6430 

0246 

20FD H Ei 

JSR 

CHKOOM 

6440 

0249 

208BB0 

J'SR 

VRRSUC 

6450 

C24C 

2882C0 

TSR 

STRPRRL. 

6460 

C24F 

2025C2 

..TSR 

HEX 

6470 

U 2 5 2 

H902 

LDR 

#2 

6480 

C254 

8D34C0 

STR 

ZLEH 

6490 

lj 2 51''* 

20CFC0 

TSR 

STR2UH 

6500 

C25R 

60 

RTS 


65.10 

C25B 


; 


6600 

C25B 


HEX* 

IS : 

6610 

C25B 

20F LJ RE 

..TSR 

CHKCOM 

6620 

C25E 

2fcfc:RRU 

• TSR 

FRITHUM 

6625 

0261 

28F7B7 

JSR 

FRCRDR 

6 b 3 L'l 

C264 

R514 

LDR 

RDRL 

6640 

0266 

SD37C0 

STR 

WERT 

6650 

0269 

R515 

LDR 

RDRH 

6660 

C26B 

8 D360:0 

STR 

RHZ 

6 6 7 0 

C26E 

20FDRE 

JSR 

CH KCOIT 

6680 

C271 

208BB0 

..TSR 

VRRSUC 

6690 

C274 

208200 

JSR 

STRPRRL 

6700 

C277 

202502 

JSR 

HEX 

6710 

027R 

8IJ0202 

STR 

E'EP+2 

6720 

027D 

RD01 02 

LDR 

BEP+1 

6730 

0280 

800302 

STR 

BEF'+3 

6740 

0283 

RGB600 

LDR 

RHZ 

6750 

0,286 

803700 

STR 

WERT 

6760 


202502 

JSR 

HEX 

6770 

0280 

fl 90 4 

LDR 

#4 

6780 

C28E 

SD3400 

STR 

ZLEH 

6790 

0291 

200FO0 

■ TSR 

STRZUW 

6800 

0294 

60 

RTS 


681Ö 

0295 


s 



Zunächst befindet sich in diesem Programmstück eine Tabel¬ 
le mit dem Label HEXTAB, welche die ASCII-Codes der hexa¬ 
dezimalen Ziffern enthält. Dann folgt ein Unterprogramm, 
welches eine zweistellige Hexadezimalzahl an den Anfang 
des Basic-Input-Puffers legt. Als Eingabeparameter dient 
die Zelle WERT. 

Danach ist das Unterprogramm HEX2S abgebildet, das einer 
Basic-String-Variablen eine zweistellige hexadezimale Zei- 
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chenreihe zuweist. Zunächst wird der umzuwandelnde Wert 
gelesen und in der Zelle WERT gespeichert, dann wird die 
Variable gelesen und der Wert umgewandelt. Schließlich 
wird mit Hilfe der Routine STRZUW, die oben beschrieben 
ist, das Ergebnis an die Variable zugewiesen. 

Ab dem Label HEX4S steht das Unterprogramm zum Bilden 
einer vierstelligen Hexadezimalzahl. Das Einlesen des 
Wertes geschieht hier mit den Aufrufen von FRMNUM und 
FACADR. Danach steht der Wert als Integerzahl in den 
Zellen ADRL und ADRH. Die Umwandlung in hexadezimale 
Ziffern geschieht durch zweimaligen Aufruf der Routine 
HEX. 

4.9 INDEX-Funktion 


7 LI ULI 

7Ö10 

Uüyo 

0295 


•; :•+: if: Hjt .•* ^ :•+: 4- :■+;:•* *.+ ***■: .+ * .=ti** $.• * 

;* POSITION SUCHEN 

7020 

0295 


; * * * * * ******** * * * * * * * * * * * * * * 

7030 

C295 


I FIDE ft s 

7040 

C295 

20FDRE 

TSR CHKCQM 

7050 

0298 

20SBB0 

..TSR VflRSUC: 

7060 

C29B 

208200 

..TSR STRPRRL 

7070 

C29E 

20FDRE 

..TSR CHKCOM 

7080 

C2R1 

20SBB0 

..TSR VflRSUC 

7090 

C 21=14 

20 fl 4 0:0 

..TSR STRPflRLl 

7 100 

C207 

20FDRE 

■JSR CHKCOM 

'7120 

C 2 fl R 

R201 

LOft #1 

7130 

C2RC 


SEC 

7140 

C2RD 

fl 51E 

LDfl STRLEN1 

7150 

C2RF 

E521 

SBC STRLEN 

7160 

C2B1 

9000 f 

BCC INDEIKS 

7170 

C2B3 

6900 

fl DO #0 

7130 

C2B5 

SCi360:0 

STR flHZ 

7190 

C2B8 


I NOEft1 : 

7200 

C2BS 

R421 

LDV STRLEN 

7210 

02 BR 


INDEft2: 

7220 

C2BR 

!-!!-! 

DEV 

7230 

C2BB 

3000 

> BMI IHDEft9 

7240 

C2BD 

Bl 1F 

LDfl C STRflDR :>V 

7250 

C2BF 

Dl 22 

CMP < STRflDR 1 > .. V 

7260 

0201 

F0F7 

BEQ INDEft2 

7270 

C2C3 

E622 

INC STRflDR1 

7280 

0205 

D000 

? BNE INDEftS 

7290 

0207 

E623 

INO STRflDR1+1 

7300 

0209 


INDEftS : 

7310 

0203 

ES 

INft 

7320 

0:20: fl 

IJ E J t' L- u 

DEC RNZ 

7330 

020: Ci 

D0E9 

BNE INDEftl 

7340 

02 CF 


INDEftS: 











202 


Kapitel 4 



5G 

60 

C2CF 
C2D1 

R200 

LDX #0 

INDEX92 


70 

CSD 1 

8E36C0 

STX flHZ 


75 

C2D4 

208BB0 

TSR VflRSUC 

l"" V 

80 

CSD 7 

FIC36C0 

LDV ANZ 

.... 

90 

C2Dfl 

20IT2B3 

-TSR VF LP 

7400 

C2DD 

FI647 

LDX V Fl RH DL 

7410 

C2DF 

Fl 4 43 

LDV VflRflDL+l 

74 

20 

C2E1 

20D4BB 

JSR FHCXV 

74 

74 

30 

40 

C2E4 

C2E5 

60 

RTS 


Um Fehlern vorzubeugen, wollen wir bei diesem Unterpro¬ 
gramm die Parameter des Aufrufes mitangeben. Die Syntax 
des SYS-Aufrufs ist: 


SYS 49173,A$,AA$,A 

Dabei soll A$ die Zeichenreihe sein, deren Position in AA$ 
gesucht werden soll. Die Position wird in der Variablen A 
zurückgegeben; A=0 bedeutet, daß A$ nicht in AA$ enthalten 
ist. 

Das Lesen der String-Parameter erfolgt durch den Aufruf 
der Routine VARSUC und anschließendem Lesen des Variablen¬ 
inhaltes. Durch dieses Vorgehen bedingt, können nur Varia¬ 
ble als Parameter übergeben werden. Diese Version hat aber 
den Vorteil, daß die Basic-Stringverwaltung nicht benötigt 
wird und deshalb das Programm schneller läuft Die Adresse 
der ersten Zeichenreihe wird in $1F,$20 abgelegt, dessen 
Länge in $21, die Adresse der zweiten Zeichenreihe in $22, 
$23 und dessen Länge in $1E. 

Dann wird die Länge der zu suchenden Zeichenreihe von der 
Länge der Zeichenreihe, in der gesucht werden soll, abge¬ 
zogen. Ist das Ergebnis negativ, so wird zum Ende des Un¬ 
terprogramms gesprungen, in dem der Ausgabeparameter auf 
Null gesetzt wird und in die Variable transferiert wird. 
Ansonsten wird die um eins erhöhte Differenz als Schlei¬ 
fe nobe rgrenze ANZ gespeichert. Die Schleife, die für jede 
Position untersucht, ob der zu suchende String gleich dem 
Teilstring ab der aktuellen Stelle ist, arbeitet mit zwei 
La uf variablen (ANZ und X-Register),' die gegeneinander lau¬ 
fen. Der Abbruch erfolgt,wenn ANZ gleich 0 ist, oder der 
String gefunden wurde. In diesem Fall enthält das X-Regis- 
ter die gefundene Position. 

Das Y-Register wird als Laufvariable innerhalb des zu su¬ 
chenden Strings verwendet. Begonnen wird mit dem Vergleich 
des letzten Zeichens, und bei Übereinstimmung wird sofort 
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das vorhergehende Zeichen untersucht, bis die gesamte Zei¬ 
chenreihe bearbeitet ist, oder eine Nicht-Übereinstimmung 
gefunden wurde. 

Die Zuweisung des Ergebnisses an die als Parameter angege¬ 
bene Variable erfolgt ab dem Label INDEX9. Der gefundene 
Wert wird zunächst in ANZ zwischengespeichert, die Varia¬ 
blenadresse mit Hilfe von VARSUC bestimmt, dann der Wert 
mit Hilfe von YFLFP in eine Fließkommazahl verwandelt, und 
schließlich diese Fließkommazahl mit Hilfe der Routine 
FACXY in die Variable selbst transferiert. 


7580 

7510 

7520 

7530 

7548 

C2E5 

C2E5 

C2E5 

C2E5 

C2E5 

4.10 

Sonderzeichen suchen 

f ***** ** * * ****** * ****** * * **** 

;* SONDERZEICHEH SUCHEN * 

20FDHE 

8014DZ : 

-TSR 0 Fl KO OM 

7550 

C2E8 

208BB0 

..TSR VARSUC 

7560 

C2EB 

2 08 2 UU 

..TSR STRF’flRL 

7570 

C2EE 

20 FD RE 

-TSR CH KO 014 

7580 

C2F1 

208BB0 

JSR VARSUC 

7530 

C2F4 

460F 

L.SR HO CH KM 

7600 

U 2 F 6 

H905 

LDfl #5 

7618 

C2F8 

303600 

STA ANZ 

7620 

C2FI3 

20FDRE 

JSR CH ICC OM 

7630 

7648 

C2FE 

C2FE 

R000 

SOND0: 

LDV #0 

7650 

C300 

B17R 

LDA <BASBZ>,V 

7660 

C302 

F000 R 

BEQ S0HD9 

7670 

7630 

C304 

C304 

20F200 

SONDl : 

JSR F'ZCODE: 

7690 

C307 

D1 1F 

CMP <STRADR>.V 

7700 

C309 

F008 R 

BEQ S0ND2 

7718 

Ü30 B 

C8 

IHV 

7726 

C30C 

0421 

CF'V STRLEN 

7730 

C30E 

90 F 4 

BCC SONDl 

7748 

0310 

Fl OFF 

LDV #*FF 

7750 

7760 

0312 

FF: 

S0I4D2 : 

IHV 

7770 

0313 

20R2B3 

-TSR VFL.F 

7780 

0316 

R 6 4 7 

LDX VARflDL 

7790 

0313 

fl 4 43 

LDV VARflDL+1 

7800 

031 Fl 

20D4BB 

-TSR FACHV 

7810 

03 ID 

18 

CLO 

7320 

03 IE 

Fl 5 4 7 

LDA VARADL 

7338 

C320 

6 D3600 

ADC IR HZ 

7840 

C323 

8547 

STA VARADL 
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7850 

CS 

25 

90010 F 

? BCC S0HD3 

7860 


27 

E648 

INC VFIRHDL 

7870 

cs 

'-•* 4 


S0HD3 : 

7888 

Uc 

29 

ES7FI 

INC 6HSBZ 

7890 

l_ü; 

2B 

□ 01001 

? BNE 5ÜND4 

79C101 

ij:- 

2D 

ES7B 

INC BHSBZ+ 

79101 

f;;" 

2F 


S0HD4: 

7920 


2F 

4CFEC2 

JMP SOND0 

7930 

f;." 

32 


; 

79401 

IJ 8 

32 


S0HD9: 

7950 

CS 

82 

60 

RTS 

7960 

cs 

8 8 




Dieses Unterprogramm durchsucht eine Zeichenreihe nach 
einer vorgegebenen Reihe von Sonderzeichen und legt die 
Positionen dieser Sonderzeichen in einem Feld ab einem 
angegebenen Element ab. Der Aufruf sieht demnach etwa so 
aus: 

SYS 49177,A$,A(0),"#/.,!=-;:?/&'()* 

Zu Beginn des Unterprogramms werden die Daten der String- 
Variable eingelesen. Dann wird die Adresse des ersten Feld¬ 
elementes mit Hilfe von VARSUC bestimmt. Das folgende Komma 
im Basic-Text wird mit CHKCOM überlesen. Dann wird das 
nächste Zeichen des Basic-Textes gelesen, und überprüft ob 
es das O-Byte ist. Wenn ja, wird zu S0ND9 gesprungen, wo 
das Unterprogramm beendet wird. Das angegebene Zeichen wird 
noch vom Interpreter-Code in den ASCII-Code mit der Routine 
PZCODE umgewandelt und anschließend mit jedem Zeichen des 
Such-Strings verglichen. Das Ergebnis wird in die angegebe¬ 
ne Variable abgelegt und der Variablenzeiger um 5 erhöht. 
Die '5‘ ist hier in der Variablen ANZ zwischengespeichert. 
Dieser Wert gilt dann, wenn das Feld aus F1ießkommazah1en 
besteht. Wenn es aus Integerzahlen besteht, muß der Wert 
auf '2' geändert werden. 

Dann wird der Basic-Befehlszeiger um eins erhöht, womit auf 
das nächste zu untersuchende Sonderzeichen gezeigt und die 
Schleife weiter bearbeitet wird. 


4.11 Fehler registrieren 


8000 C333 j^#*##***#**##**#*#********** 
8010 C333 ;# FEHLER REGISTRIEREN * 
8020 C333 *#**#**♦##**##*###***#**##** 
80150 0:333 FEHLREGi: 












Maschinenprogramme zum Assembler 


205 


3060 C 

2 

33 

3070 L 

2 

ijö 

3080 C 

2 

36 

3090 C 

“ 

3 y 

3100 C 

” 

3B 

3110 C 


3D 

3120 C 

2 

3F 

3130 C 

2 

42 

3140 C 

" 

43 

3150 C 

2 

43 

3160 C 

2 

46 

3170 C 

“ 

4? 


203BB7 

TSR 

GETBYT 


FEHL 

.ER: 

0912 

LDO 

#18 

0C38C0 

LDV 

FEHLOHS 

C00F 

CPV 

#15 

13000 F 

? BCS 

FEHLREG1 

EE38C0 

INC 

FEHLONZ 

80 

7X0 



FEHLREG1 : 

99y9 1 , :y 

STO 

FEHLERT.. 

60 

RTS 



Dieses Unterprogramm wird zwar selten aufgerufen und könnte 
ebenso in Basic geschrieben bleiben, doch ist es sinnvoll 
dieses Programm in Maschine zu schreiben, damit es von Ma¬ 
schinenprogrammen aus aufgerufen werden kann. Die Fehler¬ 
tabelle FEHLTAB ist bereits am Anfang unter Hilfszellen 
deklariert, ebenso die Anzahl der Fehler (FEHLANZ). 

Das Unterprogramm liest aus dem Basic-Text die Nummer des 
Fehlers ein und speichert ihn in der Fehlertabe1le, wenn 
nicht die maximale Anzahl der Fehler von 15 überschritten 
wurde. Wenn diese Zahl erreicht ist, wird anstatt des letz¬ 
ten Fehlers die Fehlermeldung 18 (zuviele Fehler) 
gespeichert. 


4.12 Verwaltung der Symboltabelle 


In diesem Kapitel wollen wir mehrere Unterprogramme be¬ 
schreiben, welche zur Vewaltung der Symboltabelle dienen. 
Das ist zum einen das Umwandeln des Symbolwertes in eine 
Fließkommazahl, dann das Suchen eines Symbols in der Ta¬ 
belle, das Übergeben der gefundenen Werte an eine Varia¬ 
ble, das Einfügen eines neuen Symbols, das Drucken der 
Symboltabelle, sowie das Speichern der Tabelle auf einen 
externen Speicher. 

Die Symboltabelle kann bis zu 255 Symbole mit ihren Werten 
und Typen aufnehmen. Sie besteht aus drei Bereichen: Im 
Bereich $9800 bis $98FF werden die Symbole jeweils mit 
acht Byte gespeichert. Dadurch muß ein Name immer genau 
acht Zeichen lang sein. Im Bereich von $9600 bis 97FF 
werden die Werte der Symbole jeweils als Lower- und 
Higher-Byte gespeichert. Schließlich werden die Typen der 
Symbole von %9500 bis $95FF gespeichert, dabei bedeuten: 

0 - Symbol ist Undefiniert 

1 - Symbol ist eine Konstante 

2 - Symbol ist eine Marke (Label) 
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Die Nummer des Symbols, aus welcher sich die Stelle be¬ 
rechnet, wo es gespeichert ist, wird in den folgenden 
Unterprogrammen immer mit SYMNR bezeichnet. 


Symbolwert in F1ießkomaazahl umwandeln 


1 0000 

1 00 1 0 

C347 


.?* SVM0BOLTFlBELLE VERWALTEN * 

1 @@2Ö 

1 0030 






TWERTELPs 

1 0040 

C347 

RC4CC0 

LDV SYMWERT 

1 0050 

C34A 

AD40CS 

LDfl SYMWERT+1 

1 0060 

C34D 

08 

PHP 

1 0070 

C34E 

2091B3 

TSR AYFLP 

1 0080 

0351 

28 

PLP 

1 0090 

C352 

1 000 

? E'F'L TWERT1 

1 0 1 00 

C354 

R94F 

LDA #FS5536L 

1 0 1 1 0 

C356 

I-I0C0 

LDV #F65536H 

10120 

C358 

206 7Bö 

-TSR FPL.IJSK 

10130 

C35B 


TWERT1 : 

10140 

C35B 

60 

RTS 


Der Wert des Symbols wird in den Zellen SYMWERT und SYM- 
WERT+1 übergeben. Zur Umwandlung wird die Routine AYFLP 
verwendet, welche aber die beiden Bytes im Akku und im Y- 
Register als vorzeichenbehaftete 16-Bit-Zahl auffasst. 
Deswegen muß noch 65536 addiert werden, wenn das MSB im 
Akku gesetzt war. Die Routine gibt das Ergebnis im FAC 
zurück. 


Ausgabe eines Symbolnawens auf aktuelles Ausgabegerät 


10160 

1 0 1 70 

C35C 

C:-:!5f: 

A913 

HAMOUT : 

LDA #NAMTFlB/2 

10180 

C35E 

8523 

STA 

STRADR1+1 

10190 

C36Ö 

R D 4 E U U 

LDA 

SVMHR 

1 0200 

Ü363 

0A 

ASL 

A 

10210 

C364 

2 fei 2 3 

ROL 

STRA0R1+1 

10220 

C-366 

0H 

ASL 

A 

10230 

C367 

2623 

ROL 

STRADR1+1 

10240 

Ü369 

0A 

ASL 

A 

10250 

C36A 

2623 

RUL 

STRADR1+1 

1 @260 

C36C 

8522 

STA 

STRADR1 

1 @270 

C36E 

R208 

LOH 

#8 

10280 

C37© 

2025AB 

-TSR 

STROUT 

10290 

C373 

60 

RTS 
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In diesem Unterprogramm wird ein Symbol, dessen Nummer in 
der Zeile SYMNR übergeben wird, mit Hilfe der Routine 
STROUT ausgegeben. Diese Routine verlangt als Eingabe¬ 
arameter die Startadresse des Strings in den Zellen $22, 
23 sowie die Länge im X-Register. Da ein Symbol acht 
Zeichen lang ist, erhält man die Adresse des Symbols durch 
Addition der achtfachen Symbolnummer zur Basisadresse. Das 
High-Byte der Basisadresse wird durch acht geteilt und in 
die Zelle STRADR1+1 geschrieben. Wenn es anschließend zu¬ 
sammen mit der Symbolnummer um drei Bit nach links gescho¬ 
ben wird, also mit acht multipliziert wird, ist der Wert 
wieder korrekt. 


CR ausgeben / Komma ausgeben 


CRQUT : 

fl300 L.DR #*6D ;CRRRIRGE RETURN 

2 Ö 0 C E1 J S R. E S OIJ T 

60 RTS 

COMOUT : 

R 92 C LDH #*2C ;KOMMA 

200C E 1 J SR E'. S 0 U T 

6 0 R T 6 


Diese beiden Routinen laden den Akku mit den auszugebenden 
Zeichen und rufen die Routine BSOUT auf. 


Typ eines Symbols ausgeben 


10410 

l_ 

380 


T'r'PZ : 

10420 

l_ 

330 

55434C 

XRSC ” IJCL " 

1 0430 

L 

.j;! y . 2 ' 


; 

10440 

1“ 

o -“i 


TVPOUT: 

10450 

L 

o y. "• 

RE4EC0 

LDX SYMNR 

10460 

L 

386 

BD0U95 

LDR TYPTAE 

10470 

L 

389 

RR 

TAX 

10480 

L 

38 R 

BD80C3 

LDR T'r'PZ..:-: 

10490 

L 

300 

200CE 1 

TSR BSOUT 

1 0500 

c 

390 

60 

RTS 


10510 0391 


Der Typ des Symbols wird hier als Buchstabe ausgegeben; 
den Typwerten 0, 1, 2 entsprechen die Zeichen U, C und L. 


1 03 1 0 

L 

374 

10320 

L 

374 

10330 

L 

376 

10340 

f 

379 

10350 

l_ 

37R 

10360 

L 

37R 

10370 

L 

37R 

10380 

L 

37C 

1 0390 

f 

37 F 
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Wert eines Symbols dezimal ausgeben 


10520 

C391 


VALOUT : 

10530 

C391 

8948 

LD8 

#VALTAB/512 

10540 

C393 

8563 

STR 

WH 

10550 

C395 

RO4EC0 

LD8 

SVMHR 

10560 

0398 

08 

88 L 

8 

10570 

0399 

8562 

STR 

WL 

10530 

C:39B 

2663 

ROL 

WH 

10590 

039D 

8000 

LDV 

#0 

10600 

039F 

8162 

LD8 

<:wl> .v 

1 06 1 0 

C3R1 

SD4CC0 

STR 

SVMWERT 

10620 

03 A4 

08 

I MV 


10630 

0385 

B162 

LD8 

(.WL> ,V 

10640 

0387 

8D4DC0 

STR 

SVMWERT +1 

10650 

02:88 

204703 

-TSR 

TWERTFLP 

10660 

03 AD 

20DDBD 

-TSR 

4BDDD f F8C IN ASCII WANDELN 

10670 

0:380 

2@1ERB 

-TSR 

4881E ; STRING 8USGEBEN 

10680 

0:383 

60 

RTS 


1 @690 

0384 




Der Wert des 
geholt und in 

Symbols wird 
den Zel len 

ähnlich wie der Name des Symbols 
SYMWERT und SYMWERT + 1 zwischen- 


gespeichert. Dann werden Akku und Y-Register mit den In¬ 
halten dieser Zellen geladen und die Routine AYFLP aufge¬ 
rufen, welche die Zahl im Fl ießkomma-Akkumulator ablegt. 
Mit Hilfe der darauf folgenden beiden Unterprogammaufrufe 
wird schließlich die Zahl als Zeichenreihe ausgegeben. 

Wert eines Symbols hexadezimal ausgeben 


1 0700 

0.384 


VALHOUT : 

10710 

0:384 

8948 

LDA 

■ttVALT 

10720 

0386 

8563 

STA 

WH 

10730 

0388 

AD4EC0 

L.D8 

SVI'INR 

10740 

0388 

08 

8SL 

8 

10750 

0380 

8562 

STR 

WL. 

10760 

0:38 E 

266:3 

ROL 

WH 

1 8770 

0:300 

8001 

LDV 

#1 

10780 

L-C'Uii! 

8162 

LDH 

'. NL> , 

10790 

0304 

8D37C0 

STR 

WERT 

1 @86iOi 

0307 

20250:2 

■TSR 

HER 

1 OS 18 

0308 

8D0002 

LDR 

BEP 

10820 

0:30:13 

200CE1 

JSR 

BSOHJT 

188:30 

0:30:0 

HD 6:1U2 

LDR 

BEP+1 

10840 

C3D3 

200CE1 

TSR 

BSOUT 

10350 

CSD 6 

8000 

LJ 

_i 

#0 
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1 0860 

CSDS 

Bl 62 

LDFl 

C NL > 

1 0870 

CSD fl 

8D37C0 

STA 

WERT 

10880 

CS DD 

2025 C 2 

-TSR 

HEK 

10890 

C3E0 

HD0002 

LDH 

BEP 

1 0900 

CSE 3 

200CE1 

-TSR 

ES OUT 

10910 

CSE 6 

AD©102 

LDFl 

BEF'+l 

10920 

CSE 9 

200CE1 

-TSR 

ES OIJT 

10930 

C3EC 

60 

RTS 


10940 

C3ED 





Diese Ausgabe ist ähnlich der dezimalen 
wird zur Umwandlung jeweils die Routine 
und die erhaltenen Bytes werden sofort ausg 


Ausgabe, jedoch 
HEX aufgerufen, 
egeben. 


Symbol in Tabelle suchen 


10950 

C3ED 


10960 

C3ED 

Fl 000 

10970 

C3EF 

8C4EC0 

10980 

C3F2 

20FDAE 

10990 

CSF 5 

209EAD 

1 1 000 

U3FS 

20H3B6 

1101 0 

C3FB 

C908 

1 1020 

C3FD 

El 000 

1 1030 

C3FF 

AD49C0 

1 1040 

C402 

F 0 0 0 

1 1050 

C404 


1 1 ©60 

C404 

fl 913 

1 1070 

C406 

8563 

1 1 080 

C408 

AD4EC0 

1 1 090 

C40B 

0fl 

1 1100 

C40C 

266:3 

11110 

C40E 

014 

1 1 120 

C40F 

266:3 

1 1 130 

C411 

0fl 

1 1 1 40 

C4 12 

2663 

11150 

C414 

8562 

1 1160 

C416 

14000 

111 70 

C418 


1 1 180 

C413 

B162 

1 1 190 

C41 fl 

Dl 22 

1 1 200 

C41C 

D00@ 

.1 1210 

C41E 

C8 

1 1220 

C41F 

C008 

1 123© 

C421 

D0F5 

1 1240 

C423 


1 1250 

C423 

18 

1 1260 

C424 

60 

1 1270 

C425 



SVHSUCH : 

LDV #0 
STV SVIINR 
■J'SR CHKCÜN 
-TSR: FREIEVL 
-TSR FRESTR 
CNF' #8 

R EHE SVHERR 
LDFl S VN Fl HZ 
R EEG! SVMNÜTF 
SV NI : 

LDFl #HflMTFlB204 

ST Fl NH 

LDH SVNHR 

ASL fi 

ROL NH 

HSL fl 

ROL NH 

HSL fl 

ROL NH 

STA NL 

LDV #0 

SVN2 : 

LDFl <NL>,V 
CNF <STRHDR1> ,V 
R EINE SVN3 
INV 

CPV #8 
EHE SVN2 
SVMFOUHD: 

CLC 
R'TS 
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11280 

C425 


SVM3 : 

11290 

C425 

RC4EC0 

L.DV svnnf: 

11300 

C428 

C8 

INV 

11310 

C429 

CC49C0 

CF'V SVMRNZ 

1 1320 

C42C 

8C4EC0 

STV SYMNR 

1 1330 

C42F 

D0D3 

BNE SVI'11 

1 1340 

C431 


SVMNOTF: 

1 1350 

C431 

ofc* 

SEC 

1 1360 

C432 

60 

RTS 

1 1370 

C433 


; 

1 1380 

C433 


SVMERR : 

1 1390 

C433 

20FDRE 

..TSR CHKCQM 

1 1400 

C436 

20EBB7 

..TSR GETRB 

1 14 10 

i_: 4 3 9 

4C48B2 

..TMP ILLQERF 

1 1420 

C43C 




Zunächst wird das zu suchende Symbol aus dem Basic-Text 
mit Hilfe von FRMEVL und FRESTR gelesen. Die Länge des 
Strings wird dabei im Akku übergeben. Ist sie ungleich 
acht, so wird zu einer Fehlermeldung verzweigt. 

Wenn die Befeh 1 stabe 1le leer ist (SYMANZ=0), so wird zum 
Ende des Programms gesprungen, wobei noch das Carry-Flag 
gesetzt wird, um anzuzeigen, daß das Symbol nicht gefunden 
wurde. 

Im anderen Fall wird die Startadresse des Symbols berech¬ 
net (s.o.), dann wird in einer Schleife mit dem Y-Register 
ein Zeichen nach dem anderen verglichen. Wurde die Schlei¬ 
fe beendet, ohne daß eine Nichtübereinstimmung festge¬ 
stellt wurde, so wurde das Symbol gefunden und das Unter¬ 
programm mit gelöschtem Carry-Flag verlassen. 

Im anderen Fall wird der Zeiger WL,WH auf das nächste 
Symbol gerichtet, solange die Symboltabelle noch nicht 
ausgeschöpft ist. Wenn SYMNR gleich SYMANZ ist, wurden 
alle Symbole überprüft; daraus folgt, daß das Symbol nicht 
in der Tabelle enthalten ist. 


Symbol suchen und Werte an Variable zuweisen 


11430 C43C TflBSUCH : 

11440 C43C 20F.DC3 .TSR SVMSUCH 

11450 C43F 8000 R BGS TRBSMG 

11460 C441 RE4EC0 LDX S'tTINR 

11470 C444 8662 STX HL 
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:l. i486 

L 

446 

R04B 

LDV 

#VRLTRB/5 

1 1490 

l_ 

448 

8463 

STV 

WH 

1 1 500 

l_ 

44fi 

0662 

FISL 

WL 

11510 

L 

44C 

2663 

ROL 

WH 

1 1520 

L 

44 E 

Fl 000 

LDV 

#0 

1 1530 

L 

450 

B162 

LDfl 

C WL > .. V 

1 1540 

l_ 

452 

8D4CC0 

ST Fl 

SVNWERT 

1 1550 

l“ 

455 

C8 

1HV 


1 1560 

L 

456 

B162 

LDfl 

C WL. :>.. V 

1 1570 

L 

458 

SD4DC0 

STR 

SVNWERT+1 

1 1580 

L 

45 B 

BD0095 

LDfl 

TVPTAB .,X 

1 1590 

L 

45E 

8D4BC0 

STR 

SV MT VF' 

1 1600 

L 

461 


■ 


1 1610 

L 

461 


TRBWERT: 

1 1620 

L 

461 

20FDRE 

TSR 

C'HKCOM 

1 1630 

L 

464 

208BB0 

-TSR 

VflRSUC 

1 1640 

L 

467 

2047C3 

..TSR 

TWERTFL.P 

1 1650 

i — 

46R 

R641 7 

LDX 

V RR Fl DL 

1 1660 

l“ 

46C 

R448 

LDV 

VRRRDL+1 

1 1670 

L 

46 E 

2004BB 

TSR 

F RiJXV 

1 1680 

l_. 

471 

2:0 FD Fl E 

..TSR 

CHKCOM 

1 1690 

L 

474 

208BB0 

..TSR 

VflRSUC 

1 1 700 

L 

477 

FIC4BC0 

LDV 

SVMTVP 

11710 

L 

47R 

20FI2B3 

..TSR 

VF LP 

11720 

L 

47D 

1-1647 

LDX 

V fl RR DL. 

1 1 730 

L 

47F 

fl 448 

LDV 

VARRDL+1 

11740 

l_ 

481 

2004BB 

-TSR: 

FRCXV 

1 1750 

r 

484 

60 

RTS 


1 1760 

l_ 

485 




1 1770 

L 

485 


TFIB 

3NG : 

1 1780 

L 

485 

fl 9 00 

LDfl 

#0 

1 1790 

r 

4- 8 7 

8D4CC0 

ST fl 

SVMWERT 

1 1 800 

l_ 

48R 

8D40C0 

ST Fl 

SVNWERT+1 

1 1810 

L 

480 

804BC0 

ST fl 

SVMTVP 

1 1820 

L 

490 

F0CF 

BEQ 

TABWERT 

1 1830 

1“ 

492 


f 



Zunächst wird das Symbol mit Hilfe von SYMSUCH gesucht und 
anschließend der Wert und der Typ des Symbols in die 
Zellen SYMWERT, SYMWERT + 1 und SYMTYP abgelegt, wenn das 
Symbol gefunden wurde. Ist es nicht gefunden, so werden 
diese Zellen mit Null belegt. Die Werte aus diesen Zellen 
werden anschließend in die Variablen übertragen. 


Symbol in Tabelle einfügen 


11840 

C492 

TRBEINFs 

1 1850 

C492 20EDC3 

-TSR 

SVNSUCH 

1 1860 

C495 9000 

T: BCC 

TRBEF2 
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1 1S70 

C497 

RD49C0 

1 1880 

C43R 

EE49C0 

1 1890 

C49D 

F 000 

1 1900 

C49F 


11910 

C49F 

R213 

11920 

C4R1 

y y t* y 

1 1930 

C4R3 

0R 

1 1940 

C4R4 

2663! 

1 1950 

C4R6 

0R 

11960 

C4R7 

2663 

1 1970 

C4R9 

0R 

11980 

C4RR 

2663 

1 1990 

C4RC 

8562 

1 2000 

C4RE 

R007 

1 20 1 0 

C4B0 


12020 

C4B0 

Bl 22 

12030 

C4B2 

9162 

12040 

C4B4 

y y 

12050 

C4B5 

10F9 

12060 

C4B7 

20FDRE 

12@7@ 

C4BR 

20 EBB 7 

12080 

C4BD 

8R 

12090 

C4BE 

RE49C0 

12 1 00 

C4C1 

CR 

12110 

C4C2 

9D0095 

12120 

C4C5 

8662 

12130 

C4C7 

R24B 

12140 

C4C9 

8663 

12150 

C4CB 

06 <5 2 

12160 

C4CD 

2663 

12170 

C4CF 

H 0 O 0 

12180 

C4D1 

R514 

12190 

C4D3 

9162 

12200 

C4D5 

CS 

12210 

C4D6 

R515 

12220 

C4D8 

9162 

12230 

C4DR 

60 

12240 

C4DB 


12250 

C4DB 


12260 

C4DB 

R216 

12270 

C4DD 

2036C 3 

12280 

C4E0 

R9FF 

12290 

C4E2 

8D49C0 

12300 

C4E5 

60 

12310 

C4E6 


12320 

C4E6 


12330 

L-4E6 

R20B 

12340 

C4ES 

2036C3 

12350 

C4EE: 

20FDRE 

1 2380 

C4EE 

20EBB7 

12370 

C4F1 

60 

12380 

C4F2 



LDH SVMRHZ 
INC SVMRHZ 
BEQ TRBEFl 
TRBE1 : 

LDH #HRMTRB,-'2043 

3TN WH 

RSL R 

ROL WH 

RSL R 

ROL WH 

RSL R 

ROL WH 

STR WL 

LDV #*07 

TRBE2: 

LDR OBTRRDR1>,V 
STR < WL > , V 
DEV 

BF'L TRBE2 
-TSR CHKCOM 
-TSR OETRB 
TNR 

LDN SVMRHZ 
DEN 

STR TVF'TRE:, N 
STN WL 

LDN #VRLTRB/512 

STN WH 

RSL WL 

ROL WH 

LDV #0 

LDR RDRL 

STR WL > .. V 

INV 

LDR RDRH 
STR C WL > V 
RTS 

TRBEFl : 

LDN #22 ;SVMBÜLTRBELLE 

JSR FEHLER 

LDR #*FF 

STR SVMRHZ 

RTS 

TRBEF2: 

LDN #11 
-TSR FEHLER 
-TSR CHKCOM 
-TSR OETRB 
RTS 
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Dieses Unterprogramm beinhaltet den umgekehrten Vorgang 
wie das Unterprogramm TABSUCH, dabei wird jedoch eine 
Fehlermeldung ausgegeben, wenn das Symbol bereits in der 
Tabelle enthalten ist. 


Tabelle drucken 


1 239Q 

L 

4F2 


T RBDRUCK: 

12400 

l_ 

4F2 

RD49C0 

L.DR SVMRNZ 

12410 

l_ 

4F5 

F000 F 

: BEQ TRBDEHD 

12420 

L 

4F7 

Fl 2 00 

LDX #0 

12430 

L 

4F9 


TRBD1 : 

12440 

l_ 

4F9 

8E4EC0 

STX. SVMHR 

12450 

l_ 

4 FC 

205CCS 

•JSR HRMOIJT 

12460 

l_ 

4FF 

203FRB 

TSR SPOUT 

12470 

l_ 

502 

2083C3 

..TSR TVPOUT 

12480 

l_ 

505 

203FRB 

.JSR SPOIJT 

12490 

l_ 

508 

20B4C3 

JSR VRLHOUT 

12500 

L 

50B 

2074C3 

.JSR CROUT 

12510 

l_ 

50 E 

RE4EC0 

LDX SYMNR 

12520 

L 

511 

ES 

I NX 

12530 

L 

512 

EC43C0 

CPX SVMRNZ 

12540 

L 

515 

90 E 2 

BCC TRBD1 

12550 

l_ 

517 


TRBDEHD: 

12560 

1“ 

517 

60 

RTS 

12570 

1“ 

518 


» 


In einer Schleife mit der Lauf variablen SYMNR werden alle 
Symbole sowie deren Werte und Typen nacheinander - durch 
Leerzeichen getrennt - auf dem aktuellen Ausgabegerät aus¬ 
gegeben. Die Ausgabe des Wertes erfolgt mit der Routine 
VALHOUT, also hexadezimal. 


Tabelle speichern 


12580 

C518 


TRBSPEI : 

12590 

C518 

209BB7 

JSR GETBVT 

12600 

C51B 

8613 

STX AKTIO 

12610 

C51D 

201 SEI 

JSR CHKOUT 

12620 

C520 

RD49C0 

LDR SVMRNZ 

12630 

C523 

F000 F 

? BEQ TRESPE HD 

12640 

C525 

R200 

LDX #0 

12650 



TRBSF'l : 

12660 

C527 

8E4EC0 

STX SVMHR 

12670 

C52R 

2083C3 

..TSR TVF'OUT 

12680 

C52D 

207RC3 

..TSR COMOUT 
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12690 

Ü530 

205CC3 

..TSR NRMÜIJT 

12700 

C533 

207RC3 

„TSR COMOIJT 

12710 

C 5 3 6 

2091C3 

„TSR VRLOIJT 

12720 

C539 

2074C3 

„TSR CROUT 

12730 

C53Ü 

fl E 4 E U W 

LDH SVMMR 

12740 

C53F 

ES 

I NH 

12750 

C540 

EC49C0 

CF'H SVMRHZ 

12760 

C543 

90E2 

EiCC TRE:SP 1 

12770 

C545 


TRESPEHD: 

12780 

CS 45 

Fl 613 

LDH RKTIO 

12790 

C547 

20CCFF 

„TSR CLRCH 

1 2800 

C54R 

14200 

LDH #0 

12810 

C54C 

8613 

STH RKTIO 

12820 

C54E 

60 

RTS 

12830 

C54F 


" 

Zuerst 

wird 

aus dem 

Basic-Text die logische Dateinummer 


der Datei bestimmt, auf die ausgegeben werden soll. Dann 
wird der Eingabekanal für diese Datei geöffnet. 

Im übrigen gleicht diese Routine im wesentlichen der oben 
beschriebenen Routine 'Tabelle drucken', jedoch werden 
hier die Werte durch Kommata getrennt; außerdem werden die 
Symbolwerte dezimal gespeichert. Zum Schluß wird der Ein¬ 
gabekanal wieder geschlossen. 


4.13 Mnemotechnische Bezeichnung suchen 


1 5000 

C54F 


.;*** 

***** 

1 50 1 0 

C54F 


;* TRBELL 

15020 

C54F 


;*** 

***** 

15030 

C54F 


MHEMOTRB: 

15 1 00 

C54F 

414443 

HR SC 

"RDC 

151 @ 1 

l_. 5 cL 

414E44 

HR SC 

"RHD 

15102 

ij 5 5 5 

415340 

HR SC 

"RSL 

15103 

i._. 5 5 y 

424343 

HRSC 

"BCC 

15104 

C55B 

424353 

HR SC 

"BCS 

15105 

C55E 

424551 

"iflSC 

"EEQ 

15106 

C561 

424954 

HRSC 

" BIT 

15107 

C564 

424D49 

HRSC 

"BMI 

15108 

C567 

4 24 EI 45 

HRSC 

"EHE 

15109 

C56R 

42504C 

HRSC 

"BPL 

15110 

C56D 

42524B 

HRSC 

"BRK 

15111 

C57Ö 

425643 

HRSC 

" BVC 

151 12 

C573 

425653 

HRSC 

" BVS 

15113 

i._i y 7 b 

425954 

HRSC 

"BVT 

15114 

C579 

434C43 

HRSC 

" CLC 

15115 

C57C 

434C44 

HRSC 

"CLD 


******************** 


DER 


MNEMOHICS 


* 
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15116 
151 17 

15118 

15119 

15120 

15121 

15122 

15123 

15124 

15125 

15126 

15127 

15128 

15129 
1513Ö 

15131 

15132 

15133 

15134 

15135 

15136 

15137 

15138 

15139 

15140 

15141 

15142 

15143 

15144 

15145 

15146 

15147 

15148 

15149 

15150 

15151 

15152 

15153 

15154 

15155 

15156 

15157 
15200 
15210 
15220 
15230 
15240 
15250 
15260 
15270 
15280 


57F 

434C49 

582 

434C56 

585 

434D50 

588 

435058 

58 Ei 

435059 

SSE 

444543 

591 

444558 

594 

444559 

597 

454F52 

5 9 fl 

494E43 

:59D 

494E58 

SRO 

494E59 

:5R3 

4fl4050 

5R6 

4R5352 

'5R9 

4C4441 

'SRC 

4C4458 

5RF 

4C4459 

:5B2 

4C5352 

:5B5 

4E4F50 

:5B8 

4F5241 

:5BB 

504841 

■5BE 

50405G 

:5C1 

504C41 

:5C4 

504C50 

:5C7 

524F4C 

:5CR 

524F52 

:5CD 

525449 

:5D0 

525453 

:5D3 

534243 

:5D6 

534543 

:5D9 

534544 

:5DC 

534549 

:5DF 

535441 

:5E2 

535458 

:5E5 

535459 

:5E8 

544158 

:5EB 

544159 

:5EE 

545358 

:5F 1 

545841 

:5F4 

545S53 

:5F7 

545941 

:5FR 

574F52 

:5FD 

00 

:5FE 

39 

:5FF 


:5FF 

20FDRE 

:6Ö2 

209ERD 

: 6 Ö 5 

20R3B6 

:608 

R000 

:60R 

C903 

:60C 

DH100 


"CLI " 
"CLV" 
"CMP" 

" CFK " 
"CRV" 
"DEC" 
"DEX" 
"DEV" 
"EOR" 
" I NC " 
" I NX " 
" INV" 
"JMP" 
" JSR" 
"LDR" 
" LDX" 
"L.DV" 
"LSR" 
"HOF"' 
"ORR" 
"PHR" 
"PHP" 
"F'LR" 
" F'LP " 
"ROL" 
"ROR" 
"RTI " 
"RTS" 
"SBC" 
"SEC" 
"SED" 
"SEI " 
"STR" 

II T 11 

"STV" 
" TRX " 
" T fiV " 

II -p i-- •...* 11 

"TXR" 
“ TXS " 
" TVR " 
"NOR" 
B'r'T 0 
BYT 5 
MNEMO: 

..TSR CHKCOM 
• TSR FRMEVL 
..TSR FRESTR 
LDV #0 
CMP #3 

R BHE MNEMOE 


KRSC 
KRSC 
KRSC 
KRSC 
KR SC 
KR SC 
KR SC 
Xl-lS'C 
KR SC 
KR SC 
KR SC 
KR SC 
KR SC 
KRSC 
KRSC 
KRSC 
KRSC 
KRSC 
KRSC 
KRSC 
KRSC 
KRSC 
KRSC 
KRSC 
KRSC 
KRSC 
KRSC 
KRSC 
KRSC 
KRSC 
KRSC 
KRSC 
KRSC 
KRSC 
KRSC 
KRSC 
KRSC 
KRSC 
KRSC 
KRSC 
KRSC 
KRSC 
IJGR : 
UUR ■ 











216 


15290 

C60E 

80: FD 0:5 

15300 

0611 

R939 

15310 

0613 

8DFE05 

15320 

0616 


15330 

U 616 

H 0 0 0 

15340 

u 61 y 

FIDFEC5 

15350 

061B 

CDFDC5 

15360 

061E 

3000 

15370 

C 6 2 G 

18 

15380 

0621 

60FDC5 

15390 

U bci'4 

4R 

154O0 

Ü625 

8013700 

15410 

C628 

0fl 

15420 

C629 

6013700 

15430 

C62C 

HR 

15440 

IJ t* 2 D 

R000 

15450 

C62F 


15460 

C62F 

BD4FC5 

15470 

0632 

Dl 22 

15480 

0634 

0000 

15490 

Ü636 

ES 

15500 

Ü 6 3 V 

cs 

15510 

Ü638 

Ü003 

15520 

C63H 

D0F3 

15530 

C63C 

ROS 70 Gi 

15540 

C63F 

cs 

15550 

0:640 


15560 

0640 


15570 

0:640 

60 

15580 

0641 


15590 

0641 


15600 

0641 

6000 

15610 

064:3 

RC37C0 

15620 

i_. *4 6 

ij y 

15630 

0647 

80 FD 05 

15640 

C64fl 

D0CR 

15650 

0:640 


15660 

0:640 

fl03700 

15670 

C64F 

F0EF 

15680 

0651 

y y 

15630 

0652 

8CFEC5 

15700 

0655 


15710 

C658 



STV 

IJGR 

LDR 

#57 

STR 

OGR 

MHEMO1 : 

LDV 

#0 

LDR 

OGR 

OMR 

IJGR 

BCC 

MNEMOE 

CLO 


RDC 

IJGR 

LSR 

R 

STR 

WERT 

RSL 

R 

RDC 

WERT 

TRX 


LDV 

#0 

Ml IE MO2 : 

LDR 

MHEMOTRB 

CMP 

(. STRRDR1 

BHE 

MNEM03 

I HX 


I NV 


OPV 

#3 

BHE 

NH EM Ci 2 

LDV 

WERT 


INV 

MNEMOE: 

;ERGEBNIS STEHT 
RTS 

MNEM03: 

R BCS MNEM04 
LDV WERT 
I NV 

STV IJGR 
BHE MHEMO1 
MNEMÖ4 : 

LDV WER:T 
BEQ MNEMOE 
DEV 

STV OGR 
JI1F' MHEMO 1 


Kapitel 4 


IM V—REGISTER 


Zu Beginn dieses Programmstücks steht die Tabelle der mne¬ 
motechnischen Bezeichnungen ab dem Label MNEMOTAB. Die Ta¬ 
belle konnte einheitlich aufgebaut werden, da beim 6510 
jedes Mnemonic genau drei Zeichen lang ist. Anschließend 
werden zwei Hilfszellen UGR und OGR definiert, die zum 
binären Suchen in der Tabelle gebraucht werden. Der Aufruf 











Maschinenprogramme zum Assembler 


217 


des Unterprogramms zielt auf das Label MNEMO. Hier ist ein 
Beispiel zu sehen, wie ein String-Parameter mit den Routi¬ 
nen FRMEVL und FRESTR eingelesen wird. Nach dem Aufruf 
dieser beiden Routinen steht die String-Adresse in $22 und 
$23, die Länge des Strings wird im Akku übergeben. Wenn 
die Länge nicht 3 ist, wird zum Label MNEMOE verzweigt, 
welches das Unterprogramm beendet. Grundsätzlich wird die 
gefundene Position im Y-Register übergeben, wodurch sie im 
Basic-Programm durch den Befehl PEEK(782) abgefragt werden 
kann. 

Zum Suchen wird, wie oben erwähnt, der Algorithmus des bi¬ 
nären Suchens verwendet. D.h. der zu suchende Wert wird 
zunächst mit dem Wert in der Mitte der Tabelle verglichen. 
Ist der Wert dann gefunden, ist alles okay. Wenn der zu 
suchende Wert kleiner ist als der mittlere Wert, wird in 
der ersten Hälfte der Tabelle weiter gesucht, sonst in der 
zweiten Hälfte. Dabei wird jeweils wieder die Mitte der 
Hälfte angesteuert. Durch fortgesetztes Halbieren verklei¬ 
nern sich die durchzusuchenden Teilbereiche schnell. 

Die aktuell zu durchsuchende Position wird in der Hilfs¬ 
zelle WERT zwischengespeichert. Wurde der Wert nicht ge¬ 
funden, so wird entweder die Untergrenze auf den Wert 
(WERT)+1 oder die Obergrenze auf den Wert (WERT)-l ge¬ 
setzt. Das Ende einer nicht erfolgreichen Suche kann daran 
erkannt werden, daß die Untergrenze größer als die 
Obergrenze ist. 


4.14 Initialisierungs-Routine 


OO0O 

C 65 





0010 

CiS5 

z> 


;* IHITIflLISIERUNGSROUTI NE * 

0020 

CiS5 

Z» 


; :■+:•* 


0030 

U t* 5 

z«’ 


INIT : 

0040 

ij ö 5 

z< 


USR 

H=H E X D E 2 2 5 6 

0050 

Ü G 5 

Z; 


IJSR 

/=U S R V H $ 2 5 6 

0060 

U fc* 5 

Z; 

fl 9 BEI 

LDfl 

# H E XDEZ-USRV 

0070 

C65 

R 

SD 1 103 

ST fl 

USRVEC 

0080 

C65 

D 

09C 1 

LDfl 

#USRVH 

0090 

C 65 

F 

8131 203 

ST fl 

USRVEC+1 

0100 

CSS 

cl 

fl 99 5 

LDfl 

#160-11 ;HEUES ENDREIM HIGH 

0 1 .1 0 

CSS 

4 

8538 

ST fl 

$37+1 ENDREIM HIGH 

0120 

CSS 

s 

8534 

ST fl 

$33+1 ;STflRTSTR HIGH 

0130 

css 

3 

0200 

L.DX 

#0 

0140 

Cbbfl 

8 fl 

TH Fl 


0 1 50 

css 

B 


I HI T 1 : 

01 60 

CSS 

E: 

9D0095 

ST fl 

TVPTflB,X 

0170 

C66E 

9D0096 

ST fl 

VflLTflB.H 
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0180 C 

671 9D0097 

0190 C 

674 9D0098 

0200 C 

677 9D8099 

0210 C 

67fl 9D009A 

0220 C 

67D 9D009B 

0230 C 

680 9D009C 

0240 C 

683 9D009D 

@250 C 

686 9D009E 

0260 C 

689 9D009F 

0270 C 

68 C E8 

023Ü C 

68D D0DC 

0230 L 

68F 8D49C0 

0300 C 

692 SD3BC0 

0310 C 

695 6G 


STA V fl L T fl B+256X 
ST fl HA MT AB X 
STA Hfl MT AB+256., X 
STA HflMTflB+512,X 
STH HflMTAB+768,X 
ST fl H fl M T fl B +1024X 
STA HAMTAB+1280X 
STA HAMTAB+1536,X 
STH HflMTflBn-1792X 
I HX 

EHE IHIT1 
STA SVMflHZ 
STfl FEHLflHZ 
RTS 


In diesem Programmstück sind alle Vorgänge zusammengefaßt, 
die zu Beginn des Programms ausgeführt werden müssen. Das 
ist zum einen das Setzen des USR-Vektors, dann das Be¬ 
schränken des Basic-Speichers. Für die Symboltabelle müs¬ 
sen 11 mal 256 Byte zur Verfügung gestellt werden. Die 
Symboltabelle wurde in den Basic-Speicherbereich gelegt, 
weil im Speicher zwischen $C000 und $CFF nicht mehr ge¬ 
nügend Platz ist, da hier auch die verwaltenden Programme 
1iegen. 

Schließlich wird die gesamte Tabelle mit Nullen belegt. 
Außerdem wird die Anzahl der Symbole und die Anzahl der 
Fehler auf Null gesetzt. 




5 
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5. Disassembler 


Der in diesem Buch vorgestellte Disassembler ist eine er¬ 
weiterte Version des in Band 3 beschriebenen. Das vor¬ 
liegende Programm erlaubt das Disassemblieren von auf 
Floppy gespeicherten Objekt-Dateien und Bereichen des Be¬ 
triebssystems. Die Ausgabe kann wahlweise auf Bildschirm, 
Drucker oder auf Floppy als Assembler-Quellprogramm in 
Form einer seguentiellen Datei oder als Programmdatei er¬ 
folgen. 

Neu ist die Verwaltung von Symbolen und die Ausgabe des 
disassemb1ierten Codes als eine Programmdatei. Dadurch ist 
es zum Beispiel möglich, mit dem vorgestellten Assembler 
ein disassembliertes Listing wieder zu assemblieren. Dies 
ist unter Umständen dann sinnvoll, wenn anderweitig bezo¬ 
gene Objektdateien ohne Source-Listing verändert werden 
sollen. Z.B. läßt sich so das in Band 5 vorgestellte dis- 
assemblierte Listing von Simon's Basic den eigenen Wün¬ 
schen anpassen. 

Die Beschreibung des vorliegenden Disassemblers geschieht 
in vier Abschnitten. Zunächst werden die im Programm ver¬ 
wendeten DATA-Anweisungen beschrieben, sodann die verwen¬ 
deten Unterprogramme und anschließend das Hauptprogramm. 
Schließlich wird noch auf Erweiterungsmöglichkeiten einge¬ 
gangen. 


5.1 DATA-Anweisungen 


50000 REN *** DflTfi :+:*# NHENOHICS GEORDNET NACH CODES 
50Ö10 ORTHBRK , ORR IX , , , ORRZ , ASL.2, PHP , ORR# 

5002G DATAASL R , .. ORR* , RSL* , , BPL+ , ORR IV , , 

5O030 DATA, QRflZX, RSLZX , , CLC , ORR*Y , , , QRfl*X 
5004O DRTRRSL*X , , -TSR* , AND IX , , , BI TZ , RNDZ , ROLZ , 

5O050 DRTRF'LP , RHO# , ROL fl , , BIT* , AND* , ROL* , BMI + , ANDIV 


5OO60 DATA,,,RNDZX,ROLZX,,SEC ,RHD*V, , 

50070 DRTR,RND*X,R0L.*N, ,RT I , EOF:IX, , , , E0RZ 
5008O DRTRLSRZ,,PHR,E0R#,LSR R,,JNP*,EOR*,LSR*, 

50090 Dfl TRB VC + , E 0 RIV , E 0 R 2X , L S R ZX , Ü LI , E 0 R * V 

50100 DRTR,,,EOR*X,LSR*X,,RTS,RDCIX,, 

50110 DRTR , RDCZ , RÜRZ , , F'LR , RDC# , R0R R , , J'MP* I , RDC* 
50120 DRTRR0R*, BVS + , RDCIV , , , , HDCZX , R0RZX , 

50130 DflTflSEI,RDC*V,,,,RDC*X,ROR*X,,,STRIX 
50140 DATR,,STVZ,STR Z ,STXZ,,DE V,,7 XR, 
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50150 DFlTfl8TV# , STA# , STX# , BCC+, STA IV, ,• , STVZX , STflZX 
50160 DATASTXZV , , TVA , STfl#V, TXS , ,, STA#X... , 

50170 DATALDV# , LDAIX , LDX# , ,LDVZ, LDAZ ,LDXZ , , TAV, LDA# 

50180 DATATAX, ..LÜV#, LDA#LDX# , ,BCS+ , LDA IV , , 

50190 DATALDVZX , LDAZX ,LDXZV, CLV , LDA#V , TSX , , L.DV#X , LDA#X 
50200 DATALDX#V... , CF'V#, CMPIX, , CF'VZ, CMPZ , DECZ ... 

50210 DATA INV, CMP#DEX, ,CF'V#, CMP#., DEC# , ., BNE+, CMP IV 
50220 DATA, .,, CMF'ZX , ÜECZX,, CLD, CMP#V , ., 

50230 DATA, CMP#X , DEC#X , , CPX# , SBC IX , , , CF'XZ , SBCZ 
50240 DATAINCZ,,INX,SBC#,HOP,,CPX#,SBC#,INC#, 

50250 DATABEQ+,SBCIV,,,,SBCZX,INCZX,,SED,SBC#V 
50260 DATA,,,SBC#X,IHC#X, 

Unabdingbar für die Funktion des Disassemblers ist eine 
Tabelle, aus der hervorgeht, in welche nmemotechnische 
Bezeichnung ein bestimmter Maschinen-Code zu übersetzen 
ist. Dabei muß außerdem festgehalten werden, ob nach dem 
eigentlichen Code noch ein oder zwei Byte von einem even¬ 
tuellen Operanden folgen oder nicht. Für die Angabe der 
Adressierungsart, wurden folgende Kürzel verwendet, die an 
die Bezeichnung angehängt sind: 


Kürzel - 

Adressierungsart 


Operand 

' IX ' - 

indiziert indirekt 

_ 

(Adresse , X) 

' IY' - 

indirekt indiziert 

- 

(Adresse),Y 

- 

absolut 

- 

Adresse 

' $X 1 - 

absolut X-indiziert 

- 

Adresse,X 

' $Y ' - 

absolut Y-indiziert 

- 

Adresse , Y 

* Z ‘ - 

Zeropage 

- 

Adresse 

’ZX ' - 

Zeropage X-indiziert 

- 

Adresse,X 

' ZY ' - 

Zeropage Y-indiziert 

- 

Adresse , Y 

1 1 1 - 

indirekt 

- 

(Adresse) 

- 

immediate 

- 

#Wert 

' + ’ - 

relativ 

- 

Marke 

‘ A' - 

Akkumulator 

- 

A 

Ist kein solches Kürzel vorhanden, 

SO 

ist die Adressier- 


ungsart implizit, d.h. zu diesem Befehl gibt es keinen 
Operanden. 

In den DATA-Zeilen ab 50000 sind die Befehle nach Ihrem 
Code-Wert sortiert eingetragen. Eine leere Zeichenreihe 
bedeutet, daß es diesen Befehl nicht gibt. Das kann in 
einem Objekt-Programm Vorkommen, wenn ein Text, eine Kon¬ 
stante oder ähnliches auftaucht. 
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5.2 Unterprogramme 


Nächstes Byte holen 

10 REN IJPRO NEflCHSTES BYTE HOLEN *** 

20 fl=fl+l 

30 IFED$= ,,,, THEN90 
40 GET#2I $ 

50 IS=ST 

6@ IFI 4= " " THENI 4=CHR4 < 0 > 

70 II=RSC<I*> 

80 RETURN 
90 II=PEEK<FO 
100 1:3=0 

1 16 IF fl >=E fl T H E NIS=6 4 
120 RETURN 

Dieses Unterprogramm stellt in der Variablen II das näch¬ 
ste zu disassemb1ierende Byte, und in der Variablen IS den 
Eingabestatus zur Verfügung. Außerdem wird die aktuelle 
Adresse A um '1' erhöht. Je nachdem, ob das Zeichen aus 
der Eingabedatei ED$, oder aus dem Speicher (dann ist 
ED$="") gelesen werden soll, wird zu den Zeilen 40 bzw. 90 
verzweigt. Der EingabeStatus IS ist 0, wenn das letzte zu 
d isassemb1ierende Byte noch nicht erreicht wurde, andern¬ 
falls 64. 

In dem Fall, daß aus der Eingabedatei gelesen werden soll, 
wird IS gleich ST gesetzt, im anderen Fall wird geprüft, 
ob die Endadresse EA des zu übersetzenden Speicherab¬ 
schnittes erreicht ist. 


Zweistellige Hexzahl bilden 


200 REN *** UPRO *** 2—STELLIGE HEXZAHL |H$> AUS H BILDEN 
210 H4=NID4 C H E 4.. H / 16+1 1 > + NID4 C HE 4 < HflND 1 5 > + 1.1 

220 RETURN 


Die Variable HE$, die in Zeile 1050 besetzt wird, enthält 
die Zeichen "0123456789ABCDEF". Jeweils für die höher¬ 
wertigen vier Bit (H/16) und die niederwertigen vier Bit 
(H AND 15) wird ein Zeichen aus HE$ ausgewählt. 
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Vierstellige Hexzahl bilden 

250 REM UPRO 4—STELLIGE HEXZRHL <HH#> AUS HH BILDEN 

260 H=INT<HH/256> 

270 GOSUB20O 
280 HH*=H* 

290 H=HH-256*H 
300 GOSUB200 
310 HHT=HHT+HT 
320 RETURN 

Hier wird die Variable HH in ein höherwertiges Byte und 
ein niederwertiges Byte zerlegt, für welche jeweils das 
oben beschriebene Unterprogramm aufgerufen wird. Das Er¬ 
gebnis wird in der Variablen HH$ zusammengefaßt. 


Ein-Byte-Operand bilden 

500 REM ### 1—BVTE-OPERANO BILDEN 

510 I FPRTO " f " THEN5S0 

5 2 O H=H : G 0 S U B 8 0 0 

530 I FTNT = " " ORTVtO " C" THEN560 

540 H#=TN# 

550 RETURN 

560 I FHDT= " D " THEMHT=M I DT < STR#< H > , 2 > : RETURN 
570 GOSUB200 
580 H#=PR*+H# 

530 RETURN 

In der Variablen HD$ wird übergeben, ob der Operand dezi¬ 
mal (HD$="D") dargestellt werden soll, oder hexadezimal 
(HD$="H“). Die Variable PR$ gibt an, ob der Operand für 
die Darstellung eines Befehlscodes (PR$=“ “) oder einen 
Operanden (PR$=”$“) gebraucht wird. Im letzeren Fall wird 
anstatt einer Zahl ein Symbolname zurückgegeben, wenn die 
umzuwandelnde Adresse in der eingelesenen Tabelle enthal¬ 
ten ist. 


Zwei-Byte-Operand bilden 


600 REM *** 2—BYTE—OPERAND BILDEN *** 


610 IFPRTO" T " TUEN660 
620 W=HH:GOSUBS00 
630 IFTN$=""THEN660 
640 I4H#=TN# 

650 RETURN 


,68 IFHD#="D"THENHHT 
"70 GOSUB250 " 

180 HHT=PRT+HHT 
ISO RETURN 


~MI DT 

II •“« 


<STRT'::HH> + 
,5> :RETURN 
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Dieses Unterprogramm funktioniert analog zum oben be¬ 
schriebenen. 


Wert in Tabelle suchen 


800 REM *** WERT SUCHEN IN TABELLE *** 
810 TNT=" " 

820 IFTH=0THEHRETURN 

880 FÜRI=1TOTA 

840 IFTV < I >OWTHENNEXT 

850 IFI<=TATHENTNT=TNTCI> : TVT=TVTCI> 

860 RETURN 


Wenn der Symbolwert W in der Tabelle der Symbole enthalten 
ist, wird den Variablen TN$ und TY$ der Name und der Typ 
des gefundenen Symbols zugeordnet. Ist kein Symbol mit dem 
gesuchten Wert vorhanden, so wird TN$ auf ““ gesetzt. 


Disk-Status-Werte bestinen 


900 REM m+ UF'RO *** DISK-STATUS-WERTE DS UND DST BESTIMMEN 

910 I HF'IJT# 15.. DS.. DST, D1 T r 02T 

920 ÜST=STRT C DS > + " " +DST+ " " +D1T+ " " +D2T 

930 RETURN 


Der Status wird zunächst aus dem Fehlerkanal der Floppy in 
die Variablen DS,DS$,D1$ und D2$ eingelesen. Anschließend 
wird noch die Variable DS$ aus diesen zusammengesetzt. 


Eine Zeile in Datei schreiben 


3000 REM *** UF'RO EINE ZEILE DT IN DATEI SCHREIBEN 
3010 ZN=ZN+1O 

3020 I FF'A=0THENPR I NT#6.. DT :RETURN 
3O30 F'A=PA+LEN C DT ;■ +5 
3040 HI = I NT < PA/256 > : L0=PA-256*H I 
3050 F'R I NT#6.. CHRTC LO > CHRT C HI > ; 

3060 HI = INT C ZN/256> : L0=ZN-256*HI 

3070 PRINT#6,CHRT(LCOCHRTCHI>;DT;CHRT<0>; 

3080 RETURN 
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In diesem kurzen Unterprogramm wird die laufende Zeilen¬ 
nummer für die Ausgabedatei um 10 erhöht; das fertige 
Listing ist somit in 10-er Schritten durchnumeriert. Dann 
wird gefragt, ob auf eine Programmdatei (PA größer 0) oder 
eine sequentielle Datei (PA=0) gelistet werden soll. Im 
ersten Fall muß noch der Vorwärtszeiger auf die nächste 
Programmzeile berechnet werden, außerdem muß die Variable 
PA um die Länge von D$ + 5 Byte (je 2 für Vorwärtszeiger 
und Zeilennummer und 1 Byte für das Abschlußbyte CHR$(0) ) 
erhöht werden. 

Liegt eine sequentielle Ausgabedatei vor, so braucht nur 
der Text selbst gespeichert zu werden. 


5.3 Hauptprogran 


1000 01 NC DT i 255 >, TNT C 500 J , T't'T C 500 > , TV C 500 > 

1010 F 0 RI=0T0255 
1020 RERDCDTCI> 

1030 NEMT 

1040 OPEN 15..3., 15 

1050 HET="0123456789ABCDEF" 

1060 SDT="" 

1070 INPUT"SYMBOLTABELLE VON DATEI llll";SDT 

1080 IFSDT=" "THEN1190 

1090 0PEN5,8,5,SDT 

1100 G0SUB900 

1110 IFDSTHEN1170 

1120 TA=TA+1 

1 130 I NF’IJT #5 , T't'T C TA > , TNT C TA > TV CT Ai 
1 135 TVT C TA =LEFTT C T't'T C TA > .. 1 > 

1140 IS=ST 

1150 IFST=2THENTA=TA-1 
1160 IFST=0THEN1120 
1170 CLOSE5 
1180 G 0 T 01060 
1190 EDT="" 

1200 I HF'IJT "EI MGABEDATEI " EDT 
1210 IFEDT>""THEN1260 

1220 I HF'UT " ST ART ADRESSE, END ADRESSE " ;SA,-EA 

1230 IFEA=0THEN2590 

1240 IFATHEN1600 

1250 G 0 T 0129 0 

1260 0PEN2, 8,2, EDT 

1270 G 0 SIJ B 9 0 0 

1280 IFDSTHENPRINTDST : CL0SE2:GOTO1190 
1290 INF'IJT" AUSGABEGERAET ",-AG 
1300 IF A ü -03 T H E N 0 F' E H 3 , A G : G 0 T 014 3 0 
1310 OPEN3,2 
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1.320 INF'UT " fl US GAB ED FITE I TYP < P , S , IJ > " ; HD# , ATT 
1330 0PEN6, AG , 6 , ADT + " , r " +ATT+ " W" 

1340 G 0 S IJ B 9 0 0 
1350 IF0SO63THEN1410 

1360 INPUT" ALTE VERSION LOESCHEH N|HH" AT 
1370 IFAT<>"J"G0 T 01410 
1380 CLOSES 

1390 PRIH'T#15,"S:"+ADT 
1400 G0TOI 330 

1410 IFDSTHENPRINTDST : CLOSES ; GOTO 1320 
1420 I FATT= " P " THENPfl=2049 : PR I NT#6 , CHRT < 1 > CHRT < 8 > ; 

1430 F'R:l'NT"HEXADEZIMAL,-'DEZIMAL. <H/D> ? 

1440 GETHDT 

1 450 I PHOTO" H " ANDHOTO " D " TH EH 1440 

1460 PRINTHOT 

1470 IFAG<80 RTA=0THEH1550 

1480 FORI = 1 TOT fl 

1490 IFTVT I = " L " TUEN 1540 

1500 HH=TV < I : GOSUB600 

1510 IFHDT="H"THEHHHT=”T"+HHT 

1520 D T=T H T <I> + " = "+H HT 

1530 G O S UB 3 000 

1540 HEXT 

1550 IFE D T=""T H EH1608 
1560 GOSUB10 
1570 SFI=I I 
1580 GOSUB10 
1590 SA=SA+256*I I 
1600 A=SA 

1610 IF A G < 8 G 0 T02000 
1620 HH=SA 
1630 GOSUB600 

1640 IFHDT="H"THEHHHT="T"+HHT 
1650 DT="ZORG "+HHT 
1668 G 0 S U B3088 
2880 H=A : G 0 S IJ Ei 8 0 0 

2810 IFTNT>" " ANDTVT:= " L" THENDT=THT+" : " :PR INT#3,DT:IFAG>=8 
2028 HH=A THENGOSUB3000 

2030 F'RT=" " 

2040 GOSIJB600 

2050 F' RIH T # 3H H T " " s 

2060 GOSUB18 

2070 H=II 

2880 G 0 S IJ B 2 8 O 

2098 PR I NT#3 , IHT 

2108 CDT=CDTC I I > 

21 10 I FCDT= " " THENCDT : - "'??? " 

2120 IFLEN C COT =30RR I GH TT COT , 2 > = " A " THENNT — » " : PR I NT#3 , 

213 0 G 0 S U B18 " " : G 0 T02540 

2148 11=1 I 
215 0 G Ü S IJ B 2 8 0 
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2166 PRINT#3,H#; 

217 0 X #=NID # < C D #, 4 > 

2180 CD#=LEFT# C CD#3 > 

2190 IFLEFT#<X#,1>="$"THEH2400 
2200 CD#—CD#+" " 

2210 IFX#~"#"THEHC D#=CD#+"#" 

2220 IFX#="+"THEH2330 
2230 H=II 
2240 F'R#= " # " 

225£i GÜSUB500 
2260 CD#=CD#+H# 

2270 I FX#= " ZX » THENCD#—CD#+ " , X " 

2280 I FX#= " ZV " THENCD#=CD#+ " V " 

2290 I FX:#= " IX " ORX# = " IV" THENCD#=LEFT#CD#, 5 } + " < " +MID# C CD#6 
2300 I FX#= " IX " THENCD# == CD# + " X > " 

231 © IFX#= " IV " THEHCD#=CD#+ " > V " 

2320 G 0 T02540 
2330 HH=II 

2340 IFHH>127THEHHH=HH-256 
2350 HH=HH+fl 
2360 F'R#= " # " 

2370 GOSUB600 
2380 CD#=CD#+HH# 

2390 G 0 T O2540 
2400 C D #=C D # +" " 

2410 IFX#="#I"THENCD#=CD#+"<" 

2420 HH=II 
2430 GOSU B1G 
2440 HH=HH+256*II 
2450 PR#="#" 

2460 GOSUB600 
2470 CD#=CD#+HH# 

2480 IFX#="#X"THENCD#=CD#+",X” 

2490 IFX#="#V"THENCD#=CD#+",V" 

2500 IFX#="#I"THENCD#=CD#+">" 

2510 H=II 
2520 GOSUB200 
2530 PR I NT#3H# 

2540 IFLEFT# < X#... 1 > <> " # " RNDX#> " " TH EN PR I HT#3 , r " " ; 

2550 PRINT#3" "CD# 

2560 IFfl G>=8THEND#=CD#:GOSUB3000 
2570 IFIS=0THEN2000 
2580 IFED#=""THEH1220 

2590 IFPflTHEHPRINT#6,CHR# <0>CHR# C0>? 

2600 C L 0 S E15 
2610 END 
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Zunächst werden die mnemotechnischen Bezeichnungen aus den 
DATA-Anweisungen in das Feld CD$() eingelesen und der Feh¬ 
lerkanal der Floppy geöffnet. 

Dann wird am Bildschirm der Dateiname der einzulesenden 
Symboltabelle erfragt, diese eingelesen und dann wieder zu 
Eingabe einer Symboldatei gesprungen. Beim Einlesen der 
Symbole wird der Symboltyp auf ein Zeichen verkürzt und in 
dem Feld TY$() gespeichert. Wird keine Symboldatei mehr 
gewünscht, wird die Eingabedatei ED$ erfragt. Ist ED$ = ”* , 
so werden Startadresse und Endadresse des zu disassemb1 ie- 
renden Speicherbere ichs erfragt. Wenn die Endadresse EA 
gleich 0 ist, wird das Programm beendet. 

Wurde die Ausgabedatei bereits erfragt (A größer 0), so 
wird der folgende Teil übersprungen. Wurde eine Eingabe¬ 
datei gewählt, so wird diese in Zeile 1260 eröffnet und 
der Disk-Status überprüft. 

Ab Zeile 1290 erfolgt die Wahl der Ausgabe. Je nachdem, ob 
die Nummer des Ausgabegerätes AG kleiners als 8 ist oder 
nicht, wird einfach eine Datei mit der logischen Nummer 3 
eröffnet oder mit der logischen Nummer 6 eine Floppydatei, 
deren Name AD$ und deren Typ AT$ noch erfragt werden. Ist 
AT$=”P”, so wird als Startadresse für das zu erzeugende 
Programm der Wert 2049 gespeichert. Zusätzlich zur Datei 6 
wird noch eine Datei 3 auf dem Bildschirm eröffnet. 

Anschließend wird die Variable HD$ besetzt, entweder mit 
“H" für hexadezimale Ausgabe oder mit ‘D" für dezimale 
Ausgabe. Die eingelesenen Symbole werden als Konstanten¬ 
definitionen auf der Ausgabedatei (wenn angewählt) gespei¬ 
chert. Dabei werden nur die Symbole ausgewählt, deren Typ¬ 
kennzeichen TY$() nicht gleich "L’ ist. Letztere Symbole 
werden später als Markendefinitionen gespeichert. 

Die Startadresse des zu assemblierenden Bereichs wird aus 
der Floppydatei gelesen, wenn kein Speicherbereich disas- 
sembliert werden soll. Diese Startadresse wird als %0RG- 
Direktive in eine evtl, angewählte Ausgabedatei geschrie¬ 
ben. 

In den Zeilen 2000 bis 2610 befindet sich die Schleife zum 
fortlaufenden D i sassemblieren. Hierbei wird zunächst die 
aktuelle Adresse ausgegeben. Wenn der Adresse ein gespei¬ 
cherter Marken-Name entspricht, wird dieser mit einem fol¬ 
genden Doppelpunkt ausgegeben. Dann wird das nächste Byte 
geholt und ausgegeben, sowie dessen mnemotechnische Be¬ 
zeichnung in der Variablen CD$ festgehalten. 
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festgehalten. Handelt es sich um eine implizite Adressie¬ 
rung (Länge von CD$=3) oder um eine Akkumulatoroperation 
(die rechten beiden Zeichen von CD$ sind 1 A‘), so wird 
zum Abschluß der Schleife bei Zeile 2540 gesprungen. 
Sonst wird das nächste Byte eingelesen, das zum Operanden 
der Anweisung gehören muß. Die mnemotechnische Bezeichnung 
wird nun zerlegt in eine Variable X$, die die Adressie¬ 
rungsart speichert, und in die Variable CD$, die nun neu 
mit den linken drei Zeichen ihres alten Wertes besetzt 
wird. 

Liegt ein Zwei-Byte-Operand vor (das linke Zeichen von X$ 
ist wird zu Zeile 2400 gesprungen. Wenn nicht, han¬ 
delt es sich um einen Ein-Byte-Operanden, dem dann ledig¬ 
lich je nach Adressierungsart noch einige Zeichen vorne 
und hinten hinzugefügt werden müssen. 

Ein relativer Sprung, der durch X$=“+“ gekennzeichnet ist, 
wird ab Zeile 2330 behandelt. Dabei wird dem momentanen 
Adresswert die Sprungweite hinzuaddiert und dieser Wert 
als Operand benützt. 

Ab Zeile 2400 geschieht die Umwandlung einer Anweisung mit 
Zwe i-Byte-Operanden. Dazu wird zunächst noch ein weiteres 
Zeichen eingelesen und daraus der vollständige Wert des 
Operanden gebildet. Der Operand selbst wird dann noch - je 
nach Adressierungsart - mit entsprechenden Zeichen er¬ 
gänzt. 

In jedem Fall wird ab Zeile 2540 das Ergebnis des Disas¬ 
semblierungsvorgangs ausgegeben. Die Schleife wird been¬ 
det, wenn die Variable IS verschieden von 0 ist. Dann wird 
wieder zur Angabe einer neuen Start- und Endadresse ge¬ 
sprungen, wenn keine Eingabedatei angewählt wurde. Wurde 
eine Eingabedatei gewählt, wird der Kommandokanal der 
Floppy geschlossen und das Programm beendet. 
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Disassembler 1 - 50260 


Variablen: 

Name 

Typ 

! Bereich 

J 

Bedeutung 

A 

G 

! 0...65535 

j 

momentane Adresse 

AD$ 

G 

! Zeichenreihe 

! 

Name der Ausgabedatei 

AG 

G 

! 0 ... 15 

! 

Ausgabegerät 

AT$ 

G 

! ■■ ZS" ,-p' 

! 

Typ der Ausgabedatei 

CD$ 

H 

! 3 bis 5 Zeichen 

I 

Klartext des akt. Bef. 

D$ 

P 

! Zeichenreihe 

| 

Ergebnis einer Zeile 

Dl$ 

H 

! '00' bis '99' 

j 

Disk-Status (Spur) 

D2$ 

H 

! '00' bis '99' 

j 

Disk-Status (Sektor) 

DS 

R 

! 0 . . .99 

! 

Disk-Status (Nummer) 

DS$ 

R 

! Zeichenreihe 

! 

Disk-Status (Klartext) 

EA 

G 

! 0 . . .6 5535 

j 

Endadresse des zu dis- 



! 

! 

assemblier. Bereichs 

ED$ 

G 

! Zeichenreihe 

! 

Name der Eingabedatei 

H 

P 

! 0...255 

! 

Wert für Hexzahl 

H$ 

R 

! 2 oder 3 Zeichen 

1 

Hexadezimalzahl von H 

HD$ 

G 

! ' H ' , ' D ' 

i 

Flag für Hex/Dez 

HE$ 

G 

! 0123456789ABCDEF 

j 

für Dez/Hex-Umwand. 

HH 

P 

! 0 . ..65535 

! 

Wert für Hexzahl 

HH$ 

R 

! 4 oder 5 Zeichen 

! 

Hexzahl von HH 

HI 

H 

! 0...255 

I 

High-Byte von Zahl 

I 

H 

! 0...255 

j 

Laufvariable 

1$ 

H 

! 1 Zeichen 

! 

Nächstes Byte 

II 

R 

! 0...255 

! 

ASC(1$) 

IS 

R 

! 0,64,2 

1 

Eingabestatus 

L0 

H 

! 0 ... 255 

! 

Low-Byte von Zahl 

PA 

G 

! 2049...65535 

! 

Adresse für Ausg.dat. 

PR$ 

G 

! 1 VS' 

! 

Präfix vor Hexzahlen 

SA 

G 

! 0.. .65535 

! 

Startadresse Bereich 

TA 

G 

! 0 ... 500 

! 

Anzahl Symbole 

TN$ 

G 

! Zeichenreihe 

i 

gefundenes Symbol 

TY$ 

G 

! "U“,“C","L” 

! 

Typ des gef. Symbols 

x$ 

H 

! 0 bis 2 Zeichen 

! 

Kürzel f. Adressierung 

ZN 

G 

! 0...61000 

! 

Zeilennummer für 



j 

! 

Ausgabedatei 
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!======================================================== 

! 

1 Felder (Arrays): 

! 

i- 

! Name ! Dirnen. ! Typ ! Bereich ! Bedeutung 

!- 

! CD$ ! 0...255! G ! 3 bis 5 Zeichen! Mnemoteschnische 
! ! ! ! ! Codes 

! TV ! 0...500! G ! 0...65535 ! Wert d. Symbole 

! TN$ ! 0...500! G ! bis 8 Zeichen ! Symbolnamen 

! TY$ ! 0...500! G ! " U" ," C" , ’ L” ! Symboltyp 


Dateien : 


# ! Name ! T ! Bemerkung 


2 ! ED$ ! p ! zu disassemb1ierende Datei 

6 ! AD$ !p/s! Ausgabedatei für Ergebnis 


UnterprograBinaufrufe : ( im Hauptprogramm ab 1000 ) 



i n 

! 

nach 

J 

Zweck 


1100 

I 

900 

J 

Disk-Status bestimmen 


1270 

! 

900 

! 

Disk-Status bestimmen 


1340 

! 

900 

| 

Disk-Status bestimmen 


1500 

| 

600 

J 

2-Byte-0perand bilden 


1530 

! 

3000 

| 

Eine Zeile speichern 


1560 

j 

10 

! 

Nächstes Byte holen 


1580 

! 

10 

! 

Nächstes Byte holen 


1630 

! 

600 

! 

2-Byte-0perand bilden 


1660 

1 

3000 

! 

Eine Zeile speichern 


2000 

! 

800 

j 

Symbol suchen 


2010 

[ 

3 000 

! 

Eine Zeile speichern 


2040 

! 

600 

! 

2-Byte-0perand bilden 


2 060 

! 

10 

j 

Nächstes Byte holen 


2080 

! 

200 

! 

2-stellige Hexzahl bilden 


2130 

i 

10 

! 

Nächstes Byte holen 


2150 

! 

200 

! 

2-stellige Hexzahl bilden 


2250 

| 

500 

! 

1-Byte-Operand bilden 


2370 

1 

600 

! 

2-Byte-0perand bilden 


2430 

! 

10 

j 

Nächstes Byte holen 


2460 

I 

600 

! 

2-Byte-0perand bilden 


2520 

| 

200 

! 

2-stellige Hexzahl bilden 


2560 

! 

3000 

j 

Eine Zeile speichern 
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Verzweigungen 

nach außen : 


in Ze 

! nach 

! Bedingung 

! Bemerkung 

1100 

! END 

! EA = 0 

! E ingabe von '0,0' 

2610 

! END 

! IS ungleich 0 

! Normales Ende 


5.4 Ergänzungen 

Für das Disassemb ler-Programm gilt das gleiche wie das in 
Kaapitel 3.4 über den Assembler ausgeführte: es gibt noch 
einige Möglichkeiten, die Leistungsfähigkeit des Programms 
zu steigern. Zum einen kann man die Geschwindigkeit durch 
Einbau von Maschinenroutinen erhöhen. Bereits die Routi¬ 
nen, die beim Assembler vorgestellt wurden, können wirksam 
eingesetzt werden. 

Andererseits kann auch der Einsatzbereich des Disassmblers 
erweitert werden. Die vorliegende Version kann zwar be¬ 
reits Symbole verwalten, jedoch nur solche, die in einer 
bereits erstellten Tabelle vorhanden sind. Dies ist auch 
hilfreich, wenn man z.B. die Namen sämtlicher Basic- und 
KERNAL-Routinen in einer Datei abgelegt hat. 

Manchmal möchte man aber ein besser strukturiertes Listing 
eines disassemblierten Programms. Man kann dann den Dis¬ 
assembler so erweitern, daß er in einem ersten Durchlauf 
durch die Objektdatei selbst Symbole für jeden Sprung und 
jede absolute Adressierung generiert und diese beim zwei¬ 
ten Durchgang einsetzt. 

Ein weiterer Mangel ist die ungenügende Kennzeichnung der 
im Objektprogramm enthaltenen Texte und Konstanten. Mit 
Hilfe einer Unterscheidung von Sprungadressen und Daten¬ 
adressen wäre in den meisten Fällen das Problem gelöst. 

Man erhält auch bereits eine übersichtlichere Struktur des 
Listings, wenn man nach jedem unbedingten Sprungbefehl 
(OMP,RTS,RTI,BRK) eine Leerzeile (bzw. eine Zeile nur mit 
einem Semikolon) ausgibt. 
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6. Bedienungsanleitungen 

In diesem Kapitel sind dei Bedienungsanleitungen für die 
Programme "ASS4“ bzw. “ASS4B“ und “DA4“ abgebildet. Diese 
beiden Programme sind auch auf der zum Buch gehörigen Dis¬ 
kette zu finden. 


6.1 Assembler 


Aufbau eines Quell-Programms 

Am Anfang des Que 11programms muß die Startadresse des zu 
erstellenden Objekt-Codes definiert werden. Dies geschieht 
mit einer %ORG oder %INO-Direktive (siehe unten). 

Bemerkungen werden einfach durch Semikolon abgetrennt. 
D.h. der Text nach dem Semikolon wird nicht assembliert, 
erscheint jedoch auf dem Protokoll. 

Das Ende des zu übersetzenden Que 11programms kann durch 
eine %END-Direktive gekennzeichnet werden. 

Marken (Labels) werden durch einen Doppelpunkt nach dem 
Markennamen definiert. Nach der Markendefinition können 
einfache Befehle (keine Direktiven) folgen. 

Symbole werden wie folgt definiert: 

Symbolname = Ausdruck 

Ein Ausdruck kann bis zu zwei Terme enthalten, die durch 
ein oder '/' verbunden sind. 

Ein Term kann sein: 

- eine positive ganze Zahl 

- eine zweistellige oder vierstellige Hexadezimalzahl, 
gekennzeichnet durch ein ^-Zeichen vor der Zahl 

- eine achtstellige Binärzahl, ebenfalls durch 
gekennzeichnet 

- $ (aktueller Stand des Programmzählers) 

- ein bereits definiertes Symbol 

- ein Term mit vorangestelltem Kleinerzeichen (Low-Byte) 

- ein Term mit vorangestelltem Größerzeichen (High-Byte) 
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Mneaonics 

Für die mnemotechnischen Bezeichnungen werden die üblichen 
Abkürzungen verwendet, wie sie auch von MOS-Technology 
vorgeschlagen werden. Zusätzlich gibt es die Befehle: 


BYT (Bytewert) reserviert ein Byte 

WOR (Integerwert) reserviert ein Wort, d.h. 2 Byte, 

die in der Reihenfolge Low Byte, 
High Byte kodiert werden. 


Erstellung eines QuellprograHms als Progranmdatei 

Ein Quellprogramm kann wie ein normales Basic-Programm 
editiert werden. Die dabei verwendeten Zeilennummern ha¬ 
ben nur dokumentarischen Charakter, werden aber auf dem 
Listprotokol1 mit ausgegeben. Die Verwendung von einem 
Fragezeichen ist nur in Hochkommas möglich, weil es sonst 
in einen PRINT-Befehl konvertiert wird. Das Abspeichern 
des Quellprogramms geschieht mit 

SAVE'Prog rammn ame.SRC“,8 

Die angehängten Zeichen “.SRC“ sind notwendig, da der 
Assembler daran das Quellprogramm erkennt. 


Erstellen des Quellprograans als sequentielle Datei 

Hierzu wird ein Texteditor benötigt, der das Que11programm 
sequentiell wie einen normalen Text speichert. Es werden 
keine Zeilennummern benötigt, im Listprotokoll erscheinen 
deshalb einfach laufende Zeilennummern. 


Laden und Starten des Assemblers 

Der Assembler wird wie ein normales Basic-Programm mit 

LOAD“ASS4",8 (RETURN) bzw. LOAD“ASS4B“,8 (RETURN) 

geladen und mit RUN gestartet. Nach etwa 10 Sekunden fragt 
der Rechner nach dem Namen der Quelldatei, der hier ohne 
den Zusatz “.SRC" eingegeben werden muß. Anschließend 
fragt der Rechner nach der Ausgabedatei für das Listpro¬ 
tokoll. Hier kann man eingeben: 

3 Das Protokoll wird auf dem Bildschirm 
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a usgegebe n 

4 oder 5 Das Protokoll wird auf dem entsprechenden 
Drucker ausgegeben 

8 oder 9 Das Protokoll wird auf eine sequentielle 
Datei "Name.LST" geschrieben 

Am Ende des Assemblierungsvorgangs werden vom Rechner die 
Vorwärtsverweise eingebaut. Stößt der Assembler dabei auf 
ein noch nicht definiertes Symbol, so wird dieses am Bild¬ 
schirm erfragt. Die Eingabe kann dann dezimal oder hexade¬ 
zimal erfolgen. 

Zum Abschluß wird noch die Symboltabelle als sequentielle 
Datei "Programmname.SYM“ gespeichert und auf dem Listpro¬ 
tokoll ausgegeben. 


Laden des Objektprogranms: 

Das Objektprogramm kann mit 

LOAD"Prog rammname.OBJ",8,1 : NEW 

an die im Que1lprogramm angegebene Startadresse geladen 
werden. Näheres siehe Kapitel 2.5. 


Direktiven 

Jede Direktive beginnt mit einem %-Zeichen als erstes 
Zeichen einer Programmzeile. Der vorliegende Assembler 
kennt sechs Direktiven: 


%ORG (Start-Adresse) 

Mit %ORG wird die Start-Adresse des Objekt-Programms defi¬ 
niert. Die Angabe des Wertes kann hexadezimal oder dezimal 
erfolgen. 


%INO 

Durch diese Direktive wird die Start-Adresse während des 
Assemblierungsvorgangs vom Bildschirm erfragt. 


%END 

Markiert das Ende des zu assemblierenden Quellprogramms. 



240 


Kapitel 6 


%ASC "(einfacher Text)’ 

Der in Anführungszeichen angegebene Text wird an dieser 
Stelle in das Objekt-Programm eingebaut. Im Listprotokoll 
erscheinen aus Platzgründen nur die letzten drei Zeichen 
in der Spalte Code. 

%DUP (Anzahl), (einfache Anweisung) 

Mit dieser Anweisung kann man den Objektcode einer Anwei¬ 
sung mehrmals hintereinander in das Objekt-Programm ein¬ 
bauen. 


Beispiele: 

%DUP16,BYT 0 fügt sechzehn Nullen in das Objekt¬ 
programm ein. 

%DUP4,ASL A verschiebt den Akkumulator um 4 Bits 
nach links 


Im Listprotokoll steht unter der Spalte Code nur der letz¬ 
te der wiederholten Befehle. 

Sowohl der Ausdruck für die Anzahl der Wiederholungen als 
auch die Ausdrucke in der folgenden einfachen Anweisung 
können Symbole enthalten. Oedoch müssen diese Symbole zu 
diesem Zeitpunkt definiert sein. 


%INCLUDE “Quelldatei’ 

Mit diesem Befehl wird die angegebene Quelldatei in das 
Que11programm eingefügt. Wenn die eingefügte Datei zu Ende 
ist, wird mit der Abarbeitung der originären Quelldatei 
fortgefahren. 


Angabe der Adressierungsarten 

Die Adressierungsarten werden weitgehend so angegeben, wie 
von MOS-Technologie empfohlen, d.h eine Immediate-Adres- 
sierung wird durch ein ’#’ gekennzeichnet. 

Es ergeben sich jedoch folgende Besonderheiten: Der As¬ 
sembler verwendet automatisch die Zero-Page-Adressierung, 
wenn die Adresse kleiner als 256 ist. Will man aber die 3- 
Byte-Form des Befehls (also die absolute Adressierung), so 
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muß man dem Operanden ein Rufzeichen voranstellen. Dies 
ist manchmal notwendig, wenn man Adressen in der Zero-Page 
X-indiziert ansprechen möchte, weil die meisten Befehle 
nur eine absolut X-indizierte Adressierung kennen. 

Ist dem Assembler die Größe des Adressoperanden nicht be¬ 
kannt, so reserviert er grundsätzlich den Platz für eine 
absolute Adressierung. Wird das fehlende Symbol anschlies¬ 
send definiert, so kann der Assembler natürlich ein even¬ 
tuell zuviel reserviertes Byte nicht mehr löschen. Deshalb 
ist im Assembler die Möglichkeit vorgesehen, durch ein dem 
Operanden vorgeste1ltes Klammeraffe-Zeichen die Zero-Page- 
Adressierung zu erzwingen. 

Bei relativen Sprüngen ist es am sinnvollsten, den Operan¬ 
den als symbolische Marke anzugeben. Wenn man dies nicht 
tun will, so muß man beachten, daß dann das Sprungziel in 
der Form $+2 (Sprungweite + 2) angegeben werden muß. Den 
Code "FO 02" erhält man also durch den Assembler-Befehl 
"BEQ $+4". 


6.2 Disassembler 


Der Disassembler wird wie ein normales Basic-Programm mit 

LOAD"DA4",8 

geladen und mit RUN gestartet. Nach einer kurzen Zeit 
fragt das Programm nach einer Symboldatei. Hier ist der 
vollständige Name einer Datei einzugeben, aus der die Sym¬ 
bole gelesen werden sollen, die später im Listing auftau¬ 
chen. Wird einfach RETURN gedrückt, so wird keine Symbol¬ 
datei mehr gelesen. 

Dann erwartet der Rechner den Namen der Eingabedatei. Hier 
muß das Objekt-Programm angegeben werden, welches disas- 
sembliert werden soll. Wird hier einfach RETURN gedrückt, 
so fragt das Programm nach dem zu disassemblierenden 
Adressbereich. Dadurch kann man Programme disassemb1ieren, 
die im Moment im Speicher stehen. 

Anschließend fragt der Rechner nach dem Ausgabegerät. Hier 
kann man eingeben: 

3 - Ausgabe auf dem Bildschirm 

4 - Ausgabe auf dem Drucker 

5 - Ausgabe auf dem 2. Drucker 

8 - Ausgabe auf eine Floppy-Datei 
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Wunde ’8‘ eingegeben, muß noch der Name und der Typ der 
Ausgabedatei durch Komma getrennt eingegeben werden. Als 
Typ kann man 'S' oder 'P' angeben. In beiden Fällen erhält 
man eine Datei, die mit dem oben beschriebenen Assembler 
gelesen werden kann. 

Schließlich kann man noch durch einfaches Drücken von ‘H‘ 
oder *D‘ wählen, ob die Operanden hinter den mnemotecn- 
nischen Bezeichnungen in hexadezimaler oder dezimaler Form 
angezeigt werden sollen. 

Dann wird das gesamte Programm bzw. der angegebene Adress- 
bereich disassemb1iert und auf dem Ausgabegerät ausgege¬ 
ben. 

Wurde eine Datei disassembliert, wird das Programm an¬ 
schließend beendet, sonst fragt der Rechner wieder nach 
einem Adress-Bereich. Das Programm kann beendet werden, 
indem hier '0,0' eingegeben wird. 



Anhang 
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Anhang 1 


Tabelle der Parametertypen: 

A - Ausgabeparameter von diesem Unterprogramm 
E - Eingabeparameter für dieses Unterprogramm 
G - Globale Variable 
H - Hilfsvariable 

P - Aufrufparameter an Unterprogramm 
R - Rückgabeparameter von Unterprogramm 
T - Transienter Parameter (ist in einem Unterprogramm 
gleichzeitig Eingabeparameter (E) und Aufrufpara¬ 
meter (P) bzw. A und R 

Globale Variablen gibt es zwar bei Basic nicht, da Basic 
keine block-orientierte Sprache wie z.B. PL/1 ist, aber in 
diesem Buch ist dieser Begriff für Variablen verwendet 
worden, die man in anderen Sprachen global definiert 
hätte. 


Da der verwendete Typenraddrucker die Zeichen 'größer als' 
und 'kleiner als' nicht drucken kann, wurden diese Zeichen 
wie folgt ersetzt: 


NE - Not Equal 
GT - Greater Than 
LT - Less Than 
GE - Greater or Equal 
LE - Less or Equal 


/ ungleich 
/ größer als 
/ kleiner als 
/ größer gleich 
/ kleiner gleich 


Die in den Kapiteln angegebenen Zeilenbereiche können mit 
denen der abgedruckten Listings differieren, weil offen¬ 
sichtliche REM-Zeilen (in der Regel die Überschriften von 
Unterprogrammen) nicht mitgedruckt wurden. 
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In den Programmlistings tauchen folgende Bildschirmsteuer- 
zeichen auf: 


BILOSCHIRHSTEUERCÜDES 

ZEICHEN CODE 

CURSOR NACH UNTEN 13 

CURSOR NOCH OBEN □ 

CURSOR NACH RECHTS II 

CURSOR NACH LINKS || 

DEL < ZEI . LOESCHEN > || 

HONE < CR SR OBEN LINKS!:- ä 

CLR -:!BILDSCHIRM LOESCHENI- J 

REVERSE EIN .13 

REVERSE AUS ■ 





Hexadezimal - Dezimal - Umwandlungstabelle 
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Beispiele: $7F =127 ; $F7 = 247 ; $B00 = 2816 ; $B000 = 45056 

$A77 = 2560+119 = 2679 ; $ABCD = 40960+2816+205 = 43981 
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Anhang: Komplettlisting der gemischten Version 


0 IFL == 0THENL = 1 :LOAD"ASS. OBJ" ,8, 1 
1 GOT050000 

1000 REM # fl S S E M B L I E R E H # 

1010 FR=2 

1020 INPUT"DATEI "jFT- 

1030 FT=2 

1040 OP EH 2,8,2 ,• FT+ " . SRC , P " 

1050 GOSUB25000 

1060 IFDS=0T H E N SVSP22 : SVSP2,2 : GO TO 1 130 
1070 IF D S < > 6 4 T H E H P R1H T D S T : C L 0 S E 2 : G 0 T 010 2 0 
1080 CLOSE2 
1080 FT =1 

1 100 OPEN2,8, 2... FT+ " . SRC, r S" 

1110 GOSUB25000 

1120 IFDSTHENPRI NT OST : CLOS Ei 2 ; GOTO 1020 
1 130 PR I NT " JSSEIH GEI BE DATE I I ST " FT " . SRC " 

1140 PR I NT# 15" S s " +FT+ " 

1 150 PRI NT#15,"S : "+FT+".UND" 

1 160 ÜPEN3,8... 1 , FT+ PN " 

1170 G 0 S U B25 000 
1180 IFDSTHENPR1! 11 US* :STOP 

1190 INPIJT"HLIST-GERflET CADR.. 'j 3HBIHI8" .?LD 
1200 PR I NT " ISTE ZIJ " 

1210 IFLDO3THEN0PEN4,LD:PRINT"GERflET";LDsGOTO1260 
1220 PR INT "DATEI "FT" . L.ST AUF GERflETENR. "LD 
1230 0PEN4,LD,4, "0 : "+FT+" . LST,.S,.W" 

1240 G0SUB25000 

1250 IFDSTHENPRINTOST : ST0P 

126© PRINT#4,"*** COMMODOREi 64 6502-ASSEMBLER " .r 

1270 PRINT#4," VERSION 1.5 <09.03.84>" 


12 £30 

PRINT#4 r ' 

"FISSEMBLIEREN 

VON 

"FT".SRC" 

1290 

PR I NT# 4, 

"OBJECT-DATEI 

IST 

"FT".OBJ" 

1300 

PR I NT#4, 1 

11 S V M B 0 L - T fl B E L. L E IST 

"FT".SVM" 

1310 

PRINT#4 




1320 

PR I HT#4.. 

"ZEILE ADR. 

OBJ 

* QUELLTEKT 

1330 

PRI NT#4 





134 0 G 0 S U B22000 
1350 T 14=04 
1360 G08UB10000 
1370 SVSP5, AD.. HHT 

1380 FR: IH T tt 4., Z N T " 1 ' H H Tr" " L. E F T T < CT+" " , 7 !:• ; l.J T " " T T $ 

1390 EB==PEEK<Q4> 

1400 IFEBTHENFORI = 1TOEB:PRINT#4,"FEHLER:: ";ERT<PEER <Q4+1>>:MENT 

1410 P0KEQ40 

1420 EN=EN+EB 

14 30 IFCT=""TUEN1480 

1440 AD--AD +1 

1450 PR I N T #3 , CHRT ( USR <LEFTT C CT ,2 > > > 
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1466 C t =MID 4 < C T3 > 

1470 GOTO 1430 
1480 1FIS=0THEN1340 

1490 IFI S=S4THEHF'R I NT#4, "SJUFlTE I ENDE ERREI GUT. 

15@0 F'F: 1 NT#4 

1510 PR I NT#4... EN " FEHLER. " 

1520 IFL0O3THENPRI NT EH " FEHLER. " 

.1530 CL0SE3 
1540 CL0SE2 

2000 REN # N E R T E NRCHTRREGLICH EINSETZEN # 

2@ 1 @ P RI NT# 15 , " S : " +F*+ " .. OBJ " 

2020 130SIJ B 2 5 Ei 0 0 
2030 IF D S > 1T H E H P RIN T D S -t : : S T 0 F' 

2040 IFUTHEN2090 

2@50 PRINT#15,"R:"+F$+".OB J="+I-T+ 

2 0 8 Ei Ci 0 S U B2500Ei 

2070 IFDSTHENPRINTÜSS : STOP 

2080 G O T O 2 510 

209Ei 0 P E H 3,8 , 1 , F :$ + " . 0 B J... P , H " 

2100 G O S LJ B25000 
21 10 IF D S T H E H P RIN T D S 4 ; S T 0 P 
2120 OPEN2., 8,2 , FT+ " ...... P ., R " 

2130 IJ1 =Ei 

214Ö G 0 S IJ B25000 

2150 IFDSTHENPRI N I OST:STOP 

21 SEI flD=Sfi—3 : REM STFIRTADRESSE UEBERLESEN 

217 0 U1 •= 1 : U fl=IJ fl C LJ 1 > : IJ T ==■■ IJ T C U1 > : U N T=U N T C LJ 1 > 

2180 AD=flD+l 

213 0 S V S P 2.- 2 : IS=S T : 1 I = P E E K C Q 3 > 

2200 I FLJFD flDÜRU 1 >UTHENPR I NT#3CHR* < I I > .; : GOTO2440 
2210 SI=0 

2220 I l-IJT = 1 ORLJT=:3ORUT=40RUT=8THENS I = 1 
2230 IF LJ T=2 0 R l J T—5 0 R IJ T=6 0 R l J T—7 T H E N SI =2 
2240 I FS I =2TUEN I 1 = 11 :SVSF'2 .,2:1 S=ST : 12=PEEK <Q3 > 

2250 IFÜT=0THENSTOP 
2260 T :f=L E F T $ < T T+S P T., 8 > 

227Ei S V S P B., U N $■, T V , T V 
2280 IFTV=0THEHGOSUB21000 
223O IF U T=8 T H E N2380 
2300 fl=I1-128+TV 

231 Ei I FS I = 1 FIND C Fl<0GRfl>255 > THENGOSUB26000 
2320 I FS I = 1THENPRI NT#3CHRT < fl> : GOTO2420 

2330 fl—I1+256*I2-32768-128+TV 
2340 H=I NT C Fl/256 

2350 P RIN T # 3., C H R t- < fl.25 6* I I > C1-1R T C H > ; 

2360 RD=flD+1 
2370 G 0 T02420 

2380 fl=II+256* <II>127 >+TV- < RD+1> 

2390 I Ffl> 1270RFK— 128THENGOSLJB26000 
24 0 0 IF fl < Ö T H E N fl=IT+2 5 6 
2 41 0 P R INT # 3 , C H RT C Fl > ; 







250 


Anha ng 


2420 IFU1=UTHENU1=U+1 : GOTO2440 

2430 LI 1 =ü 1 + 1 : Ufl=UR < U1 > : UT=UT < U1 > : IJNT=IJNT < U1 > 

2440 IFIS=0THEN2180 

2450 CL0SE2 

24 t' y U L U 3 E 3 

2470 CLOSES 

2480 PR INT# 15"S : " +FT + ". 

249@ G0SUE25008 

2500 I FDS> 1 THENF'R INTDST : STOP 

2510 PR I NT #4., " FERTIG RSSE MBL IERT. " 

2520 IFLDC>3THENPRINT"FERTIG flSSEMBLIERT." 

2530 G 0 SIJ E320000 
2540 CLOSEI5 
255G CLOSE4 
2560 END 


10000 

REM * EINE ZEILE 

< TT :> 14 S 

SEMBL 

IEF 

; :EN 

10010 

CT=" " 





1 0020 

UT=" " 





1 0030 

SVSP 1,TT 





1 0040 

SVSF'9 , TT ., 1-1., ; 





1 0050 

I FflTHEHTT=LEFT T < TT ., fl-- 1 




1 0060 

SVSP1,TT 





1 0070 

IFLEFTTCTT,1 >="K" 

THENGOS 

UB130 

00 ; 

: RETURM 

1 00180 

FIT= " = " 





1 01090 

SV SPS., flT ., TT ., fl 





1 0 1 00 

IFfl=0THEN10220 





1011 0 

T8T=LEFTT < TT .. fl- 1 > 





10120 

TT=M I DT C TT..fl+l > 





1 0 1 30 

SVSP 1 ., TT 





1 0 1 40 

SI =2 





101 50 

KM=0 





10160 

GO SU Ei 150013 





10170 

T T=TOT 





1 0 1 80 

SVSP1 r TT 





101 90 

T T--LEFT T < TT+S P T , 8 

> 




1 0200 

SVSF'C , TT., W1 





10210 

RETURN 





110220 

IFflDT=""THEHSVSPfl 

, 19 : RDT 

=CHRT 

i.-; 0 

■ +CHRTÜ 

10230 

SV SP 9., TT., fl,. : 





10240 

l'Ffl=0THEN 10308 





10250 

TNT-LEFTT C TT fl- 1 > 





10268 

TT=MIDT <TT , fl+1> 





18270 

SVSP 1 TT 





10280 

TNT=LEFT T < TNT+SF'T 





10290 

SVSF'CTNTRD2 





10300 

flT=" " 





10310 

SVSP 8., flT., TT., fl 





10320 

IF fl <1 > 4 fl N D L E N < TT > > 

3 TH ENS V 

SP Fl ., 1 


•TURN 

10330 

IFTT-""THENRETURN 





10340 

SVSF'D ., LEFTT C TT ., 3 

:K=PEEK 

F 782 > 



10350 

KM--KM < K > 
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10360 I FK=0THENSVSPR, 1 : RETURN 
10370 T$=M 1D* < 1 f4 > 

10380 GOSIJE: 14000 

10390 IFPEEK <Q4> THEHRETURN 

1@400 IFM0>=0RNDKM=0THENSV3Pfi,7:RETURN 

10410 IFMO=-1RNDKM>0THENSVSPfl,3:RETURN 

10420 ONKM+1 GOTO 1 1000,11100, 1 1200 , 1 1300,11400,11500 

10430 STOP 

11000 M=0 

11010 G0SIJ B12000 

11020 RETURN 

11100 1*1=2 

11110 IFMO=1ORMO=4THENM=0 
11120 IFMO=10THENM=1 
11130 G O S IJ B12000 
11140 SVSF'5 , W , HH$ 

11160 iI:T=CT+R I GH i $ C HHT , 2 > +LEFTT C HH* , 2 > 

11170 RETURN 
11200 M=MO 
11210 G 0 S U B120@0 
11220 IFH0=9THEN RETURN 

1 1230 H1 = MO=00RN0= 10RM0=20RM0=30RM0=70RM0=8 
11240 I FH 1 THENSVSF6 , W, HT : C*==t:*+H* :RETURN 
11250 SVSP5 , W , HIH-T 

11270 C ■$ =C*+RIGH T $■ < HH* , 2>+L EF FT C HH $ , 2 > 

11280 RETURN 

11300 IFkl>255THENSVSPR,8 : RETURN 
11310 SYSP6,kl,C$ 

11340 RETURN 
11400 SYSP5,kl,HH$ 

1 1420 CT=R IGHT $■ < HHT , 2 > +LEFT* < HHT , 2 > 

11430 RETURN 
11500 M=1 

11510 IFM0=10RM0=4THENM=0 
11520 G0SUB12000 
11530 H=M—RD—2 

11540 IFH>1270RHC-128THENSVSPR,17:RETURN 
11550 IFH C0 T HENH=H+256 
11560 SVSP6,H,H$ 

11578 i:::T=CT+HT 
11580 RETURN 

12000 REM :+ CT MIT CODE BESETZEN 
12010 C $=l < C t- <K , M1' 

12020 IFC$=""THENSVSPR,6 
12030 RETURN 

13000 REM * KDIRECTIVEN RUSHERTEN 
13020 G 0 8 U E24000 

13030 0N D G 0 T 01310 @ , 13200,1330Ei, 13400 , 1350Ei, 13 6 Ei Ei 
13040 SVSFFl, 2 
13060 RETURN 

13100 REM KORG DIRECTIVE 
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13105 I FflDT> " " THENSVSPA20 : RETURN 
13110 TT=M I DT C TT ,■ 5 > 

13115 KM=4 

13120 SV SP l.,TT 

13125 GOSUE16000 

13130 I FF'EEK < Q4 > THEHRETURH 

13135 HD=U 

13140 HH= I NT< fl D. •'S: 5 6 > 

13145 H=flD-25G*HH 
13150 flDT=CHRT H > +CHRT < HH > 

13155 PRINT#3.flDT; 

13160 Sfl=flD 
13165 RETURN 

13200 REM *** '■.'END DI RE CT I VE TTT 
13210 IS=320 
13220 RETURN 

13300 REM ### KINO DIECTIVE *** 

13305 I FflDT> " " THENSVSPfl..20 :RETURN 
13310 KM=4 

13315 INPUT"SSTflRTflDRESSE iill" ; TT 

13320 IFTT=" "THEN13315 
13325 G O S U B16000 
13330 IFPEEK C Q4 THENRETURN 
13335 flD=M 

13340 HH=I NTCflD/256 > 

13345 H=flD-256*HH 
13350 flDT=OHRT C H > +CHRT < HH 1 
13355 PR I NT#3 , flDT.? 

13360 Sfl=flD 
13365 RETURN 

13400 REM ### KDUP DIRECTIVE 
13404 TT=MIDT CTT,5 > 

13403 SVSP9,TT,fl,, 

13412 IFfl=0THENSVSPfl , 3 : RETURN 
13416 T3T=M I DT < TTfl+ 1 > 

13420 TT=LEFTT CTT,fl-1> 

13424 SI=2 

13428 KM=0 

13432 GOSUE15000 

13436 flN=N 

13440 TT=T3T 

13444 GOSUE1@000 

13448 IFflN=0THENCT = " " RETURN 

13452 IFflN=1THENRETURN 

13456 CCT="":fl=0 

13460 IFfl>=LENCCT >THEN13476 

13464 CCT = CCT+CHRT <USR <MIDT<CT ,fl+:L ,2 > > > 

13468 fl=fl+2 

13472 G 0 T013460 

13476 FORI=1TOflN—1 

13480 PR I NT#3COT 
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13 4 S 4 R D=R D+L E H C C C T > 

134SS HEXT 
13432 RETURN 

1350© REM *** KRSC DIRECTIVE 
13505 TT=MI DT<TT,5 > 

13510 SVSF'9 , TT , r R , " 

13515 IFR=0THENSVSPR,3 :RETIJRN 
13520 TT=MIDT <TT,Fl+1 
13525 SVSP9,TT,fl," 

13530 IFRTHEHTT=LEFTT C TT , R-1 > 

13535 CT =" " 

13540 I FT T=""THEHRETURN 
13545 SVSP6 , fl SC < RI GUT T < TT , LEN < TT > 1» , HT 
13550 CT=HT+CT 

13555 TT=LEFTTC TT,LENCTT >-1> 

13560 I FLEH C CT>C6THEH13540 
13565 PR I HT#3 , TT 
13570 fl D = R D+L E N C T T > 

13575 RETURN 

13600 REN * KINCLUDE—DIRECTIVE * 

13605 SVSF'9,TT,fl, " 

13610 IF' fl=0 T H E N 3 V S P fl , 2 4 : R E T IJ R N 
13 615 T T=1-11D T C T T , fl +1 , 17 > 

13620 SVSF'9 , TT , fl , " 

13625 IFfl=0THENSVSPFl, 24 : RETURN 
.13630 TT=LEFTT < TT , fl-1 > 

13635 0P E N 6,8,6 , T T 
13640 GOSIJE:25000 

13645 IFDSTHENSVSPfl,23 : CL0SE6 : RETURN 
13650 FF'=6 

13655 IFFT=2THENSVSF2,FP : SVSP2,FP 
13660 RETURN 

14000 REN * MODE FESTSTELLEN * 

14010 REN MODE NO : -l=HO OPER .? 0=# USN. S.ZEILE 54030 

14020 REN NÜDE NO = 10 : INDIRECT 

14030 REN SIZE: SI = 1 ~> BYTE SI=2 -> WORD 

14040 SVSP1 , TT 

14050 IFTT-""THENMQ=—1sRETURN 
14060 IFTT="fl"THENN0=9:RETURN 
14070 SVSF'9 , TT , Fl < 0) , " # < , . @ ! 

14080 IFR C 2> O— <fl <3 >>0>THEHSVSPfl,4:RETURN 
14090 L=LEHCTT> 

14100 XV = C RIGHTT C TT , 1 > O "X " RHDRIGHTT C TT , 1 <>"V " > 

14110 IFfl C 4 > TH EH I FR C 5 > I uORfl < 4 > OL- 1ORXVTHEN14410 

14120 I FR C 5 >THENI FR <4 > >0ORfl C 5 > OL-1 ORXVTHEN 14410 

1413 0 IF fl C 1 > > 10 R fl C 6 > 10 R fl C 7 > > 1THENS V S P fl,5: R E T IJ R H 

14140 IFfl':: 1 THEN I FR C 2 J +flC3 > +fl C 4 > +fl C 5 > +fl C 6 j +fl C 7 THEN 14410 

14150 IFfl':! 6 > THEN I FA < 7 > THEN 14410 

14160 I FRC7THEN I Ffl <6 jTHEN 14410 

14170 IFfl C 6 +fl C 7 > THEN I Ffl C 1 > +fl C 2 > +fl C 31' THEN 14410 
14180 I Ffl < 1 '? THENMO=0 : TT=N I DT < TT , 2 : GOTO 14440 
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14190 
14200 
14210 
14220 
14230 
14240 
14250 
14260 
14270 
14280 
14290 
14300 
14310 
14320 
14330 
14340 
14350 
14360 
14370 
14380 
14390 
14400 
14410 
14420 
14430 
14440 
14450 
14460 
15000 
15010 
15020 
15030 
15040 
15050 
15060 
15070 
15080 
15090 
15100 
15 1 10 
15120 
15130 
15140 
15150 
15160 
15170 
15180 
15190 
15280 
15210 
15220 


ifright*ct* 

I FR I GHT* T* 
IFRIGHT*CT* 
I FR I GRIT* CT* 
I FRIGHT*C T* 
ZP=0 

IF r flC6 2'THENZ 


X :> " T Fl EH 140=7 : GOTO 14430 

> = " . X 2> " THENMIÜ=7 : GOTO 14430 

> = " j , V " THEN 140=8 : GOTO 1 4430 
= " :>. V " THEHN0=3 : GOTO 1 4430 

2' = " > " THENMO= 10 : T*=I41D* C T* 


= 1 :T*=F11 D* C T* ,< 


THEHZP=2 : T*=M ID* C T*2 


r*=MID*C T*, 2L—2 >: SI=2 

: GOSIJEi 15000 : RETURN 

:L=L--1 : SI = 1 
:L=L—1 

30SIJB14370 : GOTO 14340 


370:G0T014 3 4 0 
370 : G O T014340 
3 7 O : G 0 T014340 


I FR I GHT*C T*, 2 2' = " ,X " THENI4Ü=5 : GOSUB14370 : GOTO 143 
I FR I GHT* C T*, 2 2' = " . X " TH EN MO=5 : GOSUB 14370 : GOTO 14:2 
I FR I GHT* C T* , 2::' = " , V " THE NM 0=6 : GOSUB 14370 : GOTO 14:2 
I FR I GHT* C T* , 2 > =" . V" THENM0=6 : GOSUB 14370 : GOTO 14:2 
M0=4 

13 l_l 3 U E* 1 438O 

I FF'EEK C Q4 > TH EHRET IJRN 

IF W <256El N 0 Z P < 2THEN M 0=M 0 - 3 

RETURN 

r*=LEFT*CT*.L-2 > 

IF Z P = 1T H E H M 0=M O - 3 
G O S UB150O0 
RETURN 
SV SP fl, 1 0 
RETURN 

T *=M ID* C T*2L-4 2 1 
SI = 1 

GOSUB15000 
RETURN 

REM * DOPPELflUSDRUCK AUSWERTEN 
S V S F' 9T *., FlC0> "#C 2'. 0 ! 

I Ffl C 1 } +fl C 2 2' +fl C 3 !:■ +fl C 4 > + fl C 5 2 1 +fl C 6 2* +fl C 7 > THEN15220 
fl=- C fl C 8 2' >0 - C fl C 9 > >0 ;■ - C fl c 10 ;■ >0 2' - C fl c 11 > >0 * 

IF fl=0 T H E N G 0 SIJ B16000 : G 0 T015200 
IFfl>1THENSVSPfl,12: RETURN 
fl=fl C 8 2> +fl C 9 2' +fl C 10 > +fl < 11 > 

T1*=LEFT * C T*,fl—1 > 

T2*=MID* C T*,fl+1> 

T *=T1 * 

GOSUB16000 
W1 =W 
T*=T2* 

GOSUB16000 
W2=W 

I FF'EEK C Q4 2' THENRETIJRN 
I Ffl C 8 2' THENW=W 1+W2 
IFfl C 9 >THENW=U1-W2 
I Ffl C 10 2' THENW=W 1 *W2 
I Ffl C 1 1 > THENW= I NT C W1 ,-'W2 2' 

X FW>=256TSITHENSVSPfl,13 

RETURN 

SV SP fl., 10 
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15230 RETURN 

16080 REM # EINSELAUSDRUCK AUS MER TEN * 

16010 SVSP1 , TT 
16020 HM=0 

16030 IFLEFTT < TT , 1 > = " < " THENHM= 1 : TT=M I DT TT , 2 
16040 I FLEFTT < TT , 1 > = " > " THEHHM-2 : TT=M I DT C TT.. 2 > 

16050 IFTT="T"THEHW=RD:GOTO16510 

16060 IFLEFTT < TT , 1 " THENTT=M I DT C TT , 2 > s GOTO 16110 

16070 IFLEFTT <TT,1>O"T"THEH16150 
16080 TT=MIDT <TT,2 > 

16090 I FLEH <TT ><5THEHM=USR <TT >:GOTO 16510 

16100 I FLEH C TT > OSTHENSVSPA .,14: RETURN 

16113 BBT=TT 

16120 G 0 S l J B23000 

16130 M=BB 

16140 GOTO16510 

16150 IFflSC<TT >>.=48fiNDFISCC TT><=57THENW=VAL<TT >:GOTO 16510 
16160 TT=:LEFTT C TT+SF'T , 8 > 

16170 SVS'F'B , TT , M , TV 
16180 IFTVTHEN16510 
16190 UR=RD+1 
16200 UNT=TT 

16210 ONKMGOTO16250., 16300,16370., 16400,16430 
16220 SVSPR,16 
16230 IJT=0 
16240 GOTO16460 

16250 IFMO=10RM0=4THENUT=7:GOTO16450 
16260 IFMÜ=10THENUT=6 : GOTO16450 
16270 SVSPR,6 
16280 UT=£i 
16290 G 0 T016460 

163O0 IF M 0 == 0 T H E HIJ T = 1 : GOTO 16450 

16310 IFM0<4THENUT=3 : GOTO16450 

16320 IFMÜ<=6THENUT=5:GOTO16450 

16330 I FMCk:=:8THENIJT=4 : GOTO 16450 

16340 SVSPR,6 

16350 UT=0 

16360 GOTO16460 

16370 UT=1 

16380 Ufl=RD 

16390 GOTO16450 

16400 IJT=2 

16410 UR=RD 

16420 GOTO16450 

16430 UT=8 

16440 GOTO 16450 

16450 G 0 S U B19000 

16460 UT="R" 

16470 0=32768+128:REM DEFRULT WERT FUER ADRESSEN T8080 
16480 IFUT = 1ORIJT=30RUT=4THENW= 128 : REM DEFWERT FUER BVTEW. 
16490 IFUT=8THENW=AD+2:REM DEFWERT FUER BRANCHES 
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16500 REM 

16510 IFHW=1THENW=W-256#INTCW/256 > 

16520 IFHW=2THENW=INTCN/256> 

16530 RETURN 

19000 REM * WERT IN DATEI DER IJNDEF. SVMBOLE EINTRÄGEN * 

19010 I.J=U+1 

19020 U AIJ > = l_l A 

19030 IJT < U } =UT 

19040 UNS- C U > -UN* 

19050 RETURN 

20000 REM * SYMBOLTABELLE SPEICHERN UND DRUCKEN * 

20010 PRINT#4 

20020 PR I NT#4 , " SVMBOLE : " 

20030 PRlNT#4.r "NAME T WERT" 

20040 PR I NT#4 , "---" 

20050 PR I NT#15,"S : "+F*+".SVM" 

20060 0PEN5,8,5,F* + ".SVM,S,W" 

20070 G 0 SIJ B25000 

20080 IFDSTHENPRINTÜS*sSTOP 

20090 S V S F' F , 5 

20100 CL0SE5 

20110 CMD4 

20120 SVSF'E 

20130 PRIHT#4 

20140 RETURN 

2100© REM * MANUELLE EINGABE VON SVMBOLWERTEN * 

2101O PEINTUN*; 

21020 INPUTT* 

21030 T*=LEFT*C T*+SP*,8> 

21040 P0KEQ4,0 
21050 G 0 S U B16000 
21060 IF P E E K C Q 4 > T H E N 210 0 0 
2 1070 I FUT= 1THENTV= 1 ; SI 1 
21080 I FIJT=2THENTV= 1 : SI =2 
21090 IFIJ T=3 0 RIJ T == 4 T H E N T V = 1 : SI = 1 
211 ©0 I FUT=50RUT--=6THENTV= 1 : SI =2 
21110 IFUT••= 70RUT=8THEHTV=2 ; SI =2 
21120 IFW>=256TSI THEN21000 
21130 TV=W 

21140 SVSF'C , UN* , W , TV 
21150 RETURN 

22000 REM EINE ZEILE EINLESEN * 

22010 IFFT=1THENSVSP4,FP,T*:IS=ST:ZN=2N+1:GOTO22050 
22020 SVSPS,FP,T* 

22030 IFPEEK <Q2 > =0ANDF'EEK < Q2+1 > =0THEM IS=64 :RETURN 
22040 ZN=PEEK <Q1>+256*PEEK <Q1 +1> 

22050 ZN*=R I GU I * C " " +STR* ZN , 5 

22060 IFIS > 0 A H D F F' O- 2 T H E N F P=2 
22070 RETURN 

23000 REM * BESTIMMUNG DES WERTES EINER BINAERZAHL * 

23010 BB=@ 
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23820 FÜRI=1TÜLEH<BBT> 

23030 B=ASC<MIDT<BBT,I>>-48 

2 3 @40 IF Ei < 0 O R B > 1T H E H S V S F'A ,15: RET U R H 

23050 BB=2*BB+B 

23060 HEXT 

23070 RETURN 

24000 REH * HÜHNER DER DIREGT I VE BEST IHNEN * 

24010 FORD=1 TODS 

24020 SVSP8 ,DT C D > ,TTfl 

24040 IFfl=0THEHHEXT 

24050 IF0>D9THEH0=0 

24060 RETURN 

25000 REH * DISK—STATUS—WERTE DS UND DST BESTIMMEN * 

25010 I NF'UT # 15, DS , D1T , D2T , DST 

25020 DST=STRT<DS > + ""+D1T+" , " +D2T+ " , " +D3T 

25030 RETURN 

26000 REH * FEHLERMELDUNG BEIM EINTRÄGEN fllJSGEBEH * 

2601 @ S V S P 5fl D .r fl T 

26020 PRINT#4,"FEHLER BEI "AT 

26030 fl=0 

26040 RETURN 

50000 REH # P R 0 G R fl M M - V O R: S P 13 H H # 

50010 P1=49152: REH BLANKELI 

50020 F'2=49155 : REH GET2EI 

50030 F'3=49158 : REH GETF'Z 

50040 P4=49161sREM GETTZ 

50050 P5=49164sREH HEX4S 

50060 P6=49167 sREM HEX2S 

50070 P7=49170 : REM HEXDEZ 

50080 P8=49173sREH INDEX 

500190 F'9=49176 sREH SONDZ 

50100 F'fl=49179 sREM FEHLREG 

50110 PB=49182sREM TABSUCH 

50120 F'C=49185 sREM TABEINF 

50130 F'D=49188 :REH HNEHO 

50140 PE=49191sREM TABDRUCK 

50150 F'F=491 94 : REH TABSPEI 

50U60 PI =49197:REH IHIT 

50170 Ql =49200:REH F'ZNR 

50180 Q2=49202:REM F'ZVP 

50190 03=49205:REH ZEICH 

50200 04=49208:REH FEHLANZ 

50210 SVSPI 

50220 OPEN 15815 

50230 DIMAC <5 > 

50240 F0RI=@TO5 
502501 READflU < I ■' 

5012601 HEXT 
5012701 K9=58 

50280 DIMKM C K9 > , KCT < K9,10 > 

5012901 FORI = 1T0K9 
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50300 
50310 
50320 
50330 
50340 
503501 
503601 
5 0370 
501380 
503901 
504001 
504101 
50420 
501430 

50440 
5014501 
50460 
50470 
540100 
54010 
5401201 
54030 
54040 
54050 
5401601 
5501001 
5501401 
55050 
5501601 
5501701 
550180 
55090 
55100 
5511 0 
55120 
551301 
55.140 
55150 
55160 
55170 
-551 yy 
55190 
55200 
55210 
552201 
55230 
55240 
55250 
5152661 
552701 
55280 


REflDKM<I> 

IFACCKMC 1 > > = 01 THEN50330 

FOEJ=0TOflC <: KM C I > > -1 :READKC*< I , J > : NEXTJ 

HEXT I 

D9=6 

DI MD*D9> 

FÜRI=1TÜD9 
READD* k I> 

HEXT 

E9=24 

DIMER*C E9 > 

FÜRI=1T0E9 
READER*CI> 

HEXT 

SP*=" 

fl H *=C Fl R * 3 4 

DI Mfl t'. 20 > , IJfl < 20101 > , IJT < 200 > , IJH* < 200 } 

GOT01000 

REM X FlC 0. . 5 > AHZflHL MÜDES 

DFlTfl 1 :REM TVP 0 IMPL.IED 

ÜATFI2 :REM TYP 1 < JUMPS > ABSOLUTE., I HD IR 
DATA 10 : REM #, Z ,ZX , ZV, A , AX, AV, IX, IV, AC 
DATA0 sREM BYTE 
DATA0: REM WORD 

DATA 1 : REM TYP 5 RELATIVE BRAUCHES 
REM X KM< 1 . . K9> ,KO*1 .. . I<9,0. . FlC<KM< I > > 
DATA2, 619, 65, 75,, 6D, 7D7961 , 71 , 

DATA229., 25., 35 , 2D., 3D3921 31 , 

DATA2 , 0616 , 0E , 1E., .- , , 0A 
DATA5., 901 
DATA5B0i 
DATA5., F0i 

DATA2, .,24,- .,20., , ., ., 

DAT A5 .,30i 
DAT A5,D0 
DAT fl 5., 10 
DAT fl 01,00 
DATfl5,50 
DflTflS,70 
DAT A3 
DFITA0,18 
DATfl0,D8 
DAT fl Li, 58 
DATA0,B8 

DAT A2,09,05,D5,,CD,DD,D9,01,D1, 

DAT A2,EU,E4,,,EC, ,,,, 

DATA2,Cd , 04 , ,,00 , , , ,, 

DFll A2, , 06., D6 , ,OE., DE , , ., , 

DAT fl Ci, CA 
DATA0,88 

DATA2,49,45,55 , , 4D , 5D , 5:3,41,51 , 


üCT 

TYP 2 


X 
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55290 DATR2 , ,E6 , F6 , ,EE , FE.., , , 

55300 ORTA0,ES 
55310 DRTR0, CS 
553£0 DRTR1 .,4C, 6C 
55330 ORTR1 ,20 , 

55340 DRTR2, R9 , R5 ,B5 , , RD, ED, B9 , fl 1 , B1 , 

5535ü EIRTR2 , R2 , Rlb , , E'6 , RE , , IbE , , , 

55360 DRTR2,R0,R4,B4 , ,RC,BC, ,, , 

55370 DRTR2, .,46,56 , , 4E , 5E , , , , 4R 
55380 DRTR0,ER 

55390 DRTR2,09,05, 15 , , 0D , 10,19 , & 1,11, 

55400 DRTR@,48 
55410 DRTR0,08 
55420 DRTR0,68 
55430 D fi T R 0,2 8 

55440 DRTR2,,26,36,,2E,3E,,,,2R 
55450 DRTR2,,66,76,,6E,7E,,,,6R 
55460 DATA0,40 
55470 DATA 0,60 

55480 DRTR2,E9,E5,F5,,ED,FD,F9,E1,F1, 

55490 D RTR0,38 
55500 D R T R 0,F8 
55510 D R T R 0,78 

55520 DRTR2,,85,95,,8D,9D,99,81,91, 

55530 D R T R2 , , 86 , , 96,8E , , , , , 

55540 DRTR2,,84,94,,8C , , , ,, 

55550 DRTR0,RR 
55560 DRTR0,R8 
55570 DRTR0,BR 
55580 DRTR0,8fl 
55590 DRTR0,9fl 
55600 D R T R 0 ,9 8 
5561 0 DRTR4 

5601 0 REM X 0$ CI.. 09 > XD I REGT IVEN 

56030 DRTRÜRG, END ,I HO,DUR,RSC,IHCLUDE 
58010 REM X ERTC1..E9 > FEHLERMELDUNGEH 

58030 DRTR"SYNTAX : FALSCHES MHEMDHIC" 

58040 DRTfl"SYHTRX : FALSCHE DIRECTXVE" 

58050 DRTR"SYNTAX : 0FERRHD FEHLT" 

58060 DR TA"SVHT RX : KLAMMERN FALSCH GESETZT" 

58070 DFITR"SYNTAX ; MGDEZEICHEN NICHT AH ERSTER STELLE" 
58080 DATA"ADRESSIERIJHGSRRT HIER NICHT MOEGLICH" 

58090 DRTR"KEIN OPERAND ERLAUBT" 

58100 DRTR"OPERAND MUSS EINE KONSTANTE SEIN” 

58110 DATA"OPERAND MUSS EINE MARKE <LABEL> SEIH" 

58120 DRTR"OPERAND FALSCH SPEZIFIZIERT" 

58130 DRTR"MARKE ODER KONSTANTE SCHON DEFINIERT" 

58140 DRTR"AUSDRUCK DARF NUR 2 ARGUMENTE ENTHALTEN" 
58150 DATA"WERT ZU GROSS" 

58160 DRTR"FALSCHE LAENGE EINER HEX- ODER BINAER-ZRHL" 
58170 DATA"UNGUELTIGES ZEICHEN IN BINAERZRHL" 
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58180 DRTR"DIESER WERT MUSS BEREITS HIER DEFINIERT SEIN 
58196 DRTR"SPRUNG ZU WEIT" 

58200 DRTR"ZU VIELE FEHLER" 

58210 DRTR"STRRTRDRESSE NICHT DEFINIERT" 

58220 DRTR"STRRTRDRESSE BEREITS DEFINIERT" 

58230 DRTR"UNGUELTI GE HENRDEZIMRLZRHL" 

58240 DRTR"ZU VIELE SYMBOLE" 

58250 DRTR"ORTEI NICHT GEFUNDEN" 

58260 DRTR"UNGUELTIGER DRTEINRME"- 
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Die anderen Bände der Serie: 


Band 1: Leitfaden für den Erstanwender 

Die grundlegenden Begriffe der Programmierung und die 
Eigenschaften des Commodore 64 werden an einprägsamen 
Beispielen dargestellt: Sprites und hochauflösende Grafik. 
Mit Maschinenprogrammen für Grafikbefehle und Assembler. 


Band 2: Basic-Spiele 

Denkspiele, Wirtschaftsspiele, Kartenspiele, Glücksspiele, 
Notizblock für Skat, Canasta und Doppelkopf, Biorhythmus 


Band 3: Leitfaden für Fortgeschrittene 


Multi-Color-Spr ites, Multi-Color-Grafik, Sound-Generator, 
Disassembler, Datenverwaltung mit der Floppy, Deutsche 
Fehlermeldungen 


Band 5: Simon's-Basic 

Nützliches im Umgang mit Simon's Basic. Ein erweitertes 
und Handbuch mit kommentiertem Assembler-Listing 


Band 6: Spiele 

Nochmals Spiele. Diesmal mit Maschinenprogrammen und Mu¬ 
sik, sowie vielen Kniffen. 


Band 7: Leitfaden für Profis 

Wissenswertes zum Umgang mit Light-Pen, Paddies, Joystick; 
Sound mit HGR, Relative Dateien auf Floppy 




Lieferbare Markt & Technik-Titel 


CP/M und Wordstar Anwenderhandbuch 
Best.-Nr. MT 310 DM29,80* 

Software-Auswahl leicht gemacht 

Best.-Nr. MT 340 DM58,— " 

Hardware-Auswahl leicht gemacht 
3. überarbeitete und aktualisierte Ausgabe 
1984/85 
Best.-Nr. MT 350 

Personal Computer Lexikon 
Best.-Nr. MT 390 

Planen und kalkulieren mit 
VisiCalc 
Best.-Nr. MT 450 

Basic ohne Probleme: 

Bd. 1 Unterweisung 
Best.-Nr. MT 480 

Basic ohne Probleme: 

Bd. 2 Übungen 
Best.-Nr. MT490 

Basic ohne Probleme: 

Bd. 3 Programmentwicklung und 
□atenverwaltung 
Best.-Nr. MT 500 DM44,—* 

Basic ohne Probleme: 

Bd. 4 Allgemeine Dateiverwaltung am 
praktischen Beispiel 

Best.-Nr. MT514 DM53,—* 

Basic-Programme für CBM/VC-20-Computer 
Best.-Nr. MT 501 DM32,—* 

Planen und kalkulieren mit Multiplan 
Best.-Nr. MT 502 

Der IBM-Personal Computer 
Best.-Nr. MT 503 

□atenkommunikation und Lokale 
Computer-Netzwerke 
Best.-Nr. MT 504 

Software richtig eingekauft 
Best.-Nr. MT 505 

Wörterbuch der Daten- und Tele¬ 
kommunikation 
Best.-Nr. MT506 

Multiplan richtig eingesetzt 
Best.-Nr. MT 507 

Multiplan richtig eingesetzt — 

Beispiele auf Diskette (5!4”, IBM-PC mit 
MS-DOS 2.0) 

Best.-Nr. MT623 DM48,— * 


DM 58, — * 
DM 53,— * 

DM58, — * 
DM 34, — * 

DM 38,— * 
DM58,— * 


DM 58, — * 
DM 19,80* 

DM 32.-* 

DM36,-* 

DM26,-* 


Personal Computer — das intelligente 
Werkzeug für jedermann 

Best.-Nr. MT 508 DM53,-* 

SuperCalc richtig eingesetzt 

Best.-Nr. MT 511 DM58, — * 

SuperCalc richtig eingesetzt — 

Beispiele auf Diskette (5!4”, IBM-PC mit 
MS-DOS 2.0) 

Best.-Nr. MT 621 DM48, — * 

Programme und Tips für VC-20 

Best.-Nr. MT 513 DM38,—* 

Das VC-20 Buch 

Best.-Nr. MT 516 DM49,-* 

Das VC-20 Buch — Beispiele auf Kassette 
Best.-Nr. MT 581 DM19,90* 

Das VC-20 Buch — Beispiele auf Diskette 
Best.-Nr. MT 582 DM29,90* 

Ein-Chip-Mikrocomputer-Handbuch 

Best.-Nr. MT517 DM58,—* 

Die Btx-Fibel 

Best.-Nr. MT 519 DM 29,80* 

Das Datenbanksystem dBASE II 

Best.-Nr. MT 524 DM68,—* 


Basic-80 und CP/M 

Best.-Nr. MT 525 DM48, — * 

Einführung in Datenbanksysteme mit 
dBASE II 

Best.-Nr. MT 526 DM68, — * 

Einführung in Datenbanksysteme mit 
dBASE II — Beispiele auf Diskette 
( 514 ”, IBM-PC mit MS-DOS 2.0) 

Best.-Nr. MT622 DM48,-* 


dBASE II richtig eingesetzt 

Best.-Nr. MT541 DM68,-* 


dBASE II richtig eingesetzt — Beispiele auf 
Diskette (5IBM-PC mit MS-DOS 2.0)) 

Best.-Nr. MT 544 DM48,— * 


Einführung in C 

Best.-Nr. MT 561 DM69,— * 


Mit Lotus 1-2-3 zur integrierten Problem¬ 
lösung 

Best.-Nr. MT 562 DM68,— * 

Mit Lotus 1-2-3 zur integrierten Problem¬ 
lösung (Beispiele auf Diskette) 

Best.-Nr. MT 647 DM58, — * 


* inkl. MwSt. zuzügl. Versandkosten 
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Hans-Pinsel-Straße 2 ■ 8013 Haar bei München ■ Telefon 4613-220 



Lieferbare Markt & Technik-Titel 


Basic-Dialekte im Vergleich 

Best.-Nr. MT 564 

DM32,—* 

Das Commodore 64-Buch, 

Bd. 1: Leitfaden für Erstanwender — 
mit Assembler 

Best.-Nr. MT 591 

DM 48,—* 

Das Commodore 64-Buch, 

Bd. 1: Beispiele auf Diskette 

Best.-Nr. MT 592 

DM58,—* 

Das Commodore 64-Buch, 

Bd. 2: Basic-Spiele 

Best.-Nr. MT 593 

DM38,—* 

Das Commodore 64-Buch, 

Bd. 2: Beispiele auf Diskette 

Best.-Nr. MT 594 

DM58,—* 

Das Commodore 64-Buch, 

Bd. 3: Leitfaden für Fortgeschrittene 
Best.-Nr. MT 595 

DM38,—* 

Das Commodore 64-Buch, 

Bd. 3: Beispiele auf Diskette 

Best.-Nr. MT 596 

DM58,— * 

Das Commodore 64-Buch, 

Bd. 4: Leitfaden für Programmierer — 
Assembler — Disassembler 

Best.-Nr. MT 597 

DM38,— * 

Das Commodore 64-Buch, 

Bd. 4: Beispiele auf Diskette 

Best.-Nr. MT 598 

DM 58,— * 

Das Commodore 64-Buch, 

Bd. 5: Simon’s Basic 

Best.-Nr. MT 599 

DM38,— ' 

Das Commodore 64-Buch, 

Bd. 5: Beispiele auf Diskette 

Best.-Nr. MT 600 

DM 58,—' 

Das Commodore 64-Buch, 

Bd. 6: Spiele 

Best.-Nr. MT 619 

DM38,—* 

Das Commodore 64-Buch, 

Bd. 6: Beispiele auf Diskette 

Best.-Nr. MT 620 

DM58,— ' 

Computerspiele und Wissenswertes — 
Commodore 64 

Best.-Nr. MT 601 

DM 29,80* 

Computerspiele und Wissenswertes — 
Commodore 64: Beispiele auf Diskette 
Best.-Nr. MT 602 

DM 38,— ' 

Das große Spielebuch Commodore 64 
Best.-Nr. MT603 

DM 29,80* 


Das große Spielebuch Commodore 64: 

Beispiele auf Diskette 

Best.-Nr. MT 604 DM38,' 

Software-Schnellkurs: CP/M 

Best.-Nr. MT 605 DM37,- 

Software-Schnellkurs: MailMerae 

Best.-Nr. MT 606 DM 37,- 

Software-Schnellkurs: dBASE II 

Best.-Nr. MT 607 DM37,- 

Software-Schnellkurs: SuperCalc 

Best.-Nr. MT 60B DM37,- 

Software-Schnellkurs: Wordstar 

Best.-Nr. MT 609 DM37,- 

Software-Schnellkurs: Multiplan 

Best.-Nr. MT 610 DM37,- 

Software-Schnellkurs: Lotus 1-2-3 

Best.-Nr. MT 611 DM48,- 

Software-Schnellkurs: CP/M 86 

Best.-Nr. MT615 DM37,- 

Software-Schnellkurs: MS-DOS 

Best.-Nr. MT 651 DM37,- 

Mehr als 32 Basic-Programme für den 
Commodore 64 

Best.-Nr. MT 613 DM49,- 

Mehr als 32 Basic-Programme für den 
Commodore 64: Beispiele auf Diskette 
Best.-Nr. MT614 DM 48,- 

Mehr als 32 Basic-Programme fürden IBM-PC 
Best.-Nr. MT 624 nM 68.- 

Mehr als 32 Basic-Programme für den IBM-PC: 
Beispiele auf Diskette (5!4” mit MS-DOS 2.0) 
Best.-Nr. MT 625 DM 58,- 

MS-DOS 

Best.-Nr. MT 616 DM 58,- 

Einführung in Forth 

Best.-Nr. 635 DM58,- 

Lotus 1-2-3 richtig eingesetzt 

Best.-Nr. MT 637 DM68,- 

Lotus 1-2-3 richtig eingesetzt 
Beispiele auf Diskette (5 '/j”, IBM-PC mit 
MS-DOS 2.0) 

Best.-Nr. MT 638 DM58,- 

Logo — Grafik, Sprache, Mathematik 
Best.-Nr. MT 648 DM42,- 

Wordstar für die Praxis 

Best.-Nr. MT 642 DM54,- 
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Das (ommodore 64-Buch 

Panil Am Ein Leitfaden 
DCIIIII für Systemprogrammierer 


Das vorliegende Buch wendet sich an diejeni¬ 
gen Leser, welche die Möglichkeiten ihres 
Commodore 64 mit dem Hilfsmittel der Maschi¬ 
nensprache weiter ausschöpfen wollen. 

Das Buch beinhaltet eine Einführung in die Ma¬ 
schinenprogrammierung und eine Anleitung, 
wie die Maschinenprogramme in Basic-Pro- 
gramme eingebaut werden können. Insbeson¬ 
dere sind ein Assembler in zwei Versionen und 
ein Disassembler beschrieben. Zum Verständ¬ 
nis dieser Programme ist die Kenntnis von Ba¬ 
sic erforderlich. 

In zahlreichen Tabellen und Beispielen wird die 
Wirkungsweise des Prozessors und der Assem¬ 
bler-Programmierung deutlich. Die vorgestell¬ 
ten Programme sind einerseits ein Hilfsmittel 
für den Programmierer, andererseits werden 
auch Möglichkeiten aufgezeigt, Programm¬ 


stücke für eigene Programme zu nutzen. Weite¬ 
re Beispiele für Maschinenprogramme finden 
sich auch in anderen Bänden dieser Buchreihe. 
Band 1 soll eine Unterstützung für den Erstan¬ 
wender sein. Die Möglichkeiten des Commodo¬ 
re 64 werden von Beginn an erklärt. Band 2 be¬ 
faßt sich mit Spielen, aber nicht nur 'Diskette 
rein — spielen’, sondern 'spielend Programmie¬ 
ren lernen' ist das Ziel. Band 3 ist ein Leitfaden 
für Fortgeschrittene und behandelt Themen, 
die in Band 1 nicht oder nicht ausführlich be¬ 
handelt wurden. Band 5 ist einer weitverbreite¬ 
ten Software-Erweiterung des Commodore 64 
gewidmet: dem Simon’s Basic. Band 6 bringt 
schließlich wieder Spiele für Spieleprofis. 
Zusätzlich sind zu jedem Band Disketten er¬ 
hältlich, die dem Leser das Eintippen der be¬ 
schriebenen Beispiele ersparen. 
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